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ARRANGEMENT OF 
PROGRAMS 

All the programs have been classified, explained and set out in 
an easy to read and enter format, with further programming 
suggestions and enhancement s. We hope you enjoy this book and 
games within and continue to get the 'best' for and from your 
ATARI 130XE. 

In the programs throughout this book, spaces have been used to 
aid readability. These have been placed between reserve words 
like PRINT, FOR, GOTO, GOSUB and between the characters in 
strings. It is not necessary to put them between reserve words 
most of the time however occasionally the machine will demand 
it. So if you type in a line omitting the spaces and the 
machine rejects it with a error, retype it with the spaces. 
The only time you should type a space inside of a string is 
when you see the * symbol. This avoids confusion. 

The ATARI has a number of special graphics characters. These 
are obtained by pressing combinations of keys. The bulk of 
these characters are obtained by pressing the Control key and 
one of the alphabetic character keys. Inverse characters 
(reverse images of characters) are obtained by pressing the 

inverse key on the extreme bottom right hand side of the 

keyboard. Normal characters are restored by pressing this key 
once more. 

Frequently occurring (and easily overlooked) 
typing errors with the ATARI 130XE 

1. Do not confuse the letter 0 with the digit 0 (zero). 

2. Do not confuse the capital letter I with the numeric digit 
1 (one). 

3. A comma and a full stop (period) are not interchangable. 

4. When a colon is required do not type a semi-colon (;). 
These two characters are not interchangeable. 

5. A double quote (") is not interchangeable with an 

apostrophe ( 1 ) . 

6. Inside of character strings, spaces are mandatory if 

indicated by the * symbol. 
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7. It is important to get the number of brackets inside a 
BASIC formulae correct otherwise the line will be rejected. 
The bracket symbols are () and not [ . 

8. The following characters are obtained by pressing the shift 
key and the numeric keys; ! " # $ % & ' @ ( ) 

Overall advice 

If you type in a program line, press RETURN and the computer 
rejects it with an error message, then carefully compare the 
line with what’s in the book. The line has been rejected 
because it has not been written according to the rules of 
BASIC. Retype the line correctly as per the book. 

All BASIC program statements must be in upper case. Any 
reserve word in lower case will rejected as an error. Also 
reserve words may not be in the inverse mode. 

Once you have typed in a program save a copy of it to tape or 
disk. Under no circumstances type in a program and RUN it 
without doing this first. Most of the programs in this book 
contain POKEs or machine language. If you make a mistake 
typing in a program and then RUN it, these are liable to erase 
your program or lock up the machine. If the error is 
disasterous enough, the only way to restart the machihe is to 
switch it off and on, losing your program !!! If by some 
misfortune you should do this and the machine locks then press 
RESET. If control doesn't go back to BASIC then you have lost 
your program otherwise you may still have an oppotunity to save 
it to tape or disk. 

Save a program to tape with 

SAVE ”C:FILENAME” 

or to disk with 

SAVE ”D:FILENAME” 

After you have typed in a program and saved it to either tape 
or disk, it's safe to RUN it. Unfortunately just because the 
computer has accepted a program line doesn't mean that it's 
correct. You are likely to be presented with a number of error 
messages the first time you try to RUN a program. To some 
extent this can be prevented by using CHEXSUM in the next 
section but even that won't solve all problems. Here is a list 
of the most common error messages and their probable causes. 

ERROR- 17 AT LINE nnnn 
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This generally means that you have typed in a line, caused a 
syntax error and didn’t notice it. When a syntax error occurs, 
the word ERROR- is entered into the start of the bad line. So 
when the ATARI tries to execute the line it finds garbage. The 
error is repaired by retyping in the line correctly. 

ERROR- 12 AT LINE nnnn 

The computer has been told to GOTO, GOSUB, ON GOSUB or ON GOTO 
to a line and the line didn't exist. Check that the line which 
has the above statements in it has the right linenumber. Then 
check that the line it was told to goto actually exists. 

ERROR- 6 AT LINE nnnn 

The computer tried to read some information from a DATA 
statement with a READ statement and there wasn’t enough data 
present. The most obvious cause of this error is a mistake in 
the DATA statements. Carefully go through the DATA statements 
making sure that all numbers are right. Check to see that no 
full stops have been exchanged for commas and vice versa. 

ERROR— 8 AT LINE nnnn 

The computer tried to read information from DATA statements, 
was expecting numeric information and got character information 
instead. The solution to this problem is the same as above. 
Check through your data statements and make sure that all the 
information is correct. Also make sure that the READ statement 
where the error occured is correct. 

ERROR- 3 AT LINE nnnn 

The computer used a number which was out of range. For example 
a POKE statement tried to use a number which was not in the 
range 0-235. If a POKE statement contains a variable then 
print the contents of the variable and find out how it got to 
that value. Generally happens when a READ statement fetches an 
incorrect DATA statement and the computer tries to POKE the bad 
data. Check the DATA statement. 

ERROR- 9 AT LINE nnnn 

A reference was made to an array or a string and an error 
occured. There are various reasons why this error has occured. 
They are: 

* A reference was made to an array which didn't exist. There 
are two reasons for this; the variable in the line where the 
error occurred was incorrect, or the variable named in the DIM 
statement was incorrect. Check these two sources. 

* An array reference was incorrect. It was either greater 
than 32767 or a negative number. Check that the array 
reference was in this range or was not greater than the 
dimension size. 
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* A string variable must be declared with a DIM statement at 
the start of the program. If you get an array error for a 
string then either the string variable where the error occurred 
is wrong or the varaible in the DIM statement is wrong. 
When you have typed in a program and you can't get it running 
properly, even after numerous debugging attempts, then put the 
job at rest for a day or so. It often happens that you will 
find the bug at once after resuming the job. 
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CHEXSUM 

The unique CHEXSUM program validation 

WHY 

When a book of programs such as this book is keyed in, 

everybody invariably makes reading and typing mistakes and then 

spends ages trying to sort out where and what is causing the 
error (errors). 

Even experienced programmers often cannot identify an error 
just by listing the relevant line and need to do the tedious 
job of going back to the book, especially with DATA statements. 

Realizing that this is a maior cause of frustration in keying 
the program, we decided to do something about it. There is a 
short routine in this book which you should key in and save 

BEFORE you key in any of the games programs. 

Using this routine you will be able to find out if you made any 
keying errors at all and in which lines, before you even RUN 

the program. In effect this means that with this book you need 

not waste time looking for keying errors, you simply run the 
CHEXSUM routine and look at the display to identify lines 
containing errors. It's that easy. 

The principle behind the routine is a unique check sum 
calculated on each line of the program you have keyed 
computer. Compare this chexsum value with the value 
line in the list at the end of the program listing; if 
the same the line is correct, if not there is an error 
1 ine. 

WHEN 

The simplest method is to enter the CHEXSUM program in now and 
save a copy of it to tape or disk. To save it to disk use 

LIST "D:CHEXSUM" 


which is 
into the 
for that 
they are 
in that 


To save it to tape use 


LIST "C:CHEXSUM" 

The LIST command saves a copy of the CHEXSUM program to either 
tape or disk in ASCII. It is only possible to reload an ASCII 
file using: 

For tape 


ENTER "C:CHEXSUM" 
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For Disk 


ENTER "D:CHEXSUM M 

You can type in the CHEXSUM program at any time, even if you 
have started to type in a program. You cannot, of course LOAD 
in CHEXSUM from tape or disk because it will erase all you have 
typed so far. The obvious solution is to merge the programs. 
The CHEXSUM program should be saved onto a separate cassette to 
allow easy access. 

HOW CAN YOU TELL IF CHEXSUM HAS BEEN ENTERED 
CORRECTLY 

After having keyed in CHEXSUM it is very important that you 
know that CHEXSUM is working perfectly. Follow these 
instructions: 

1. Type in the CHEXSUM program and save it to disk or tape 
with the commands suggested above. 

2. Manually compare the CHEXSUM program you have typed in 
with the book. Get someone to read the book out to you while 
you check it against whats in the computer. 

3. Keep repeating steps 1 and 2 until the checksum program 
is perfect. 


Here is a listing of CHEXSUM and instructions on it's use: 


32000 
32010 
32020 
32030 
32040 
3204 1 

32043 

32044 
32043 
32046 

32049 

32050 


TO TAL--0 

STM TAB- PEEK (136) +PEEK ( 137) *256 
NUN-PEEK (STMTAB) -{-PEEK (STMTAB+1 ) *256 
IF NUM~32000 THEN 60TO 32070 
1F P E E K < S T M T A B+4) - 0 T HEN 32050 


L l NETOTAL-0 s ? ” L INE ^NUMBER : 


; NUM: “ 


-2070 


FOR T--STMTAB+4 TO STMTAB+PEEK (STMTAB+21 
LI NETOT ALINETOTAL+PEEK (T) 

NEXT T 

TOTAL-TOTAL+LINETOTAL 
? LINETOTAL 

S T H T A B=S T M T A B+p E E K (S T IT T A B + 2) 

GOTO 32020 
? M TOTAL a - 5 TOTAL 
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USING CHEXSUM 


CHEXSUM is a special program which generates a unique sum for 
each line in a program and a grand total of all sums. After 
each program listing is a table of checksums. You need only 
compare the numbers in the CHEXSUM table for each program with 
those generated by CHEXSUM. If two numbers differ, check that 
particular line. 

1. Type in your game program, PINGPONG, say. Save it to tape 
or disk. 

2. If you have just typed in a program then ignore this step 
otherwise LOAD in you game from tape or disk. 

3. Merge the CHEXSUM program onto the end of your program. Do 
this by putting the tape or disk containing the chexsum program 
into the drive and for disk typing: 

ENTER "D:CHEXSUM" 
for tape type: 

ENTER "C:CHEXSUM" 

4. Once the CHEXSUM program has been merged onto the end of 
your game program, enter GOTO 32000 to activate CHEXSUM. 

3. Chexsum will now output the checksum for the program. To 
halt the program press the Control and the '1' keys. Press 
again to restart output. 

6. Check your grand total with that in the book. If they 
differ a line has been entered incorrectly. Compare line 
numbers until you locate the bad ones and then edit them. 

7. Repeat steps 4 to 6 until the games program is debugged. 

8. When the games program is running satisfactorily, delete 
the Chexsum program from the end of your game. 

9. Finally save the debugged version onto a tape or disk. 
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BOMBER 



CLASSIFICATION: Skill 

A plane is flying above and periodically dropping bombs on the 
cities below. You have a shield which you must use to explode 
the bombs with before they hit the ground. The longer the game 
runs the faster the bomber flies and the faster the bombs are 
dropped. After a hundred bombs are dropped the speed decreases 
and after a hundred catches the speed increases. Use joystick 
one to move the shield left and right. 

PROGRAMMING SUGGESTIONS 

Have more than one bomber flying overhead and increase the 
number of bombs that can be dropped. 
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Program 

Variables 


i 

PMBASE 

PM 


General purpose variable 
Pointer to player missile data 
Page pointer to player missile data 


Holds data begin read from data statement 


Program 

Structure 


5 - 

8 

10 - 

85 

100 - 

120 

1000 


5000 - 

5410 


Clear memory and read in programs 

Set up graphics mode 

Data for players 

Call machine langugae program 

Data for machine language program 
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Listing 


40 
50 
60 
70 
80 
85 
100 
110 
1 15 
120 
1000 
5000 

5010 

5020 

5030 

5040 

5050 

5060 

5070 

5080 

5090 

5100 

5110 

5120 

5130 

5140 

5150 

5160 

5170 


FOR 1=33792 TO 33792+1023:POKE 1,0:NEXT I 

FOR I=.j,0720 TO 30720+78: READ A: POKE I, A: NEXT I 

™ 172*72 TO 29510: READ A: POKE I , A: NEXT I 
POKE 106,128 

PM=PEEK(106):PMBASE=PM*256 
GRAPHICS 1 

PR I NT #6; “ CAUGHT !^^.HITS:" 

POKE 559,62 

POKE 53277,3 

POKE 54279,PM 

POKE 53256,2:POKE 53257,2 

POKE 704,77:POKE 705,88:POKE 706,88 

POKE 787,88 

®^ 2 a 48 , 184 , 255 , 56 , 48 , 32 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0, 0 , 0j0 
^_; A ^’ 0 T 0 i 0 ? 0 i 0 ?®»®40,0,0,0,0,0,0,0,jZj„0,0 

S’S’ ? 55 ’ 123,0 ’ 0 , 0 , 0 ,0,0,0,0,0,0,0 

LATA 8,0, 1^,^5,255,123,0,0,0,0,0,0 0 0.0 a 0 0 
A=USR(112*256) ' ’ ’ 

DATA 32,27,112,32,72,112,32,151,112,32,41,113,32,239,11 

3,32,75,113,32,131 v 1 9,1 

DAT A 11 13 ’ 32 ’ 206 ’ 113 i 76 1 3 » 112,169,0,141,5,1 15, 1 69,50,141 
, 4 , J, , 169,8,141 

DATA 7,115,169,50,141,19,115,169,158,141,18,115,169,0,1 

41.62.115.141.63.115 ’ 

DATA 141,66,115,141,56,115,169,5,141,65,115,96,173,60 1 

15.240.4.206.60.115 ’ ' ’ 

DATA 96,173,65,115,141,60,115,173,7,115,201,4,240,5,201 
,8,240,26,96,173 ’ ’ 

DAI A 5,115,240,4,206,5,115,96,169,8.141,7,115,32 3 ^7 l 3 
3,201,100,176,249 ' ’ ‘ ’ 

DATA 141,4,115,96,173,5,115,201,163,240,4,238,5,115,96 

DATA 32,127,113,201,100,176,249,141,4,115,96,173,59,315 

,240,4,206,59,115,96 ’ ’ 

DATA 173,65,115,141,59,115,173,62,115,201,1,240,6.32,19 

7.112.76.182.112.32 

DAT A 247,112,173,63,115,201,1,240,4,32,222,112,96,32.3 6 
113 96 33 127 113 ’ 1 ’ 

DATA 201,210,i76,17,169,1,141,62,115,173.5,115,143 ,33 1 

15.173.4.115.141.32 ' .’ 

DATA 115,96 , j-2,127,113,201 , 200,144,17,169,1,141,63,335, 

173.5.115.141.47.115 ’ ’ 

DhTA 173,4,115,141,46,115,96,173,32,115,201,155,240,4,2 
•-*S,32, 1 15,96,169,0 ’ ‘ 

DATA 141,62,115,169,220,141,32,115,238,56,115,96,173,46 
,115,201,155,240,4,238 

DATA 46,115,96,169,0,141,63,115,169,220.141,46,115,239 
56,115,96,32,247,114 ' 

DATA 201,4,240,5,201,8,240,12,96,173,19,115,201.0,240,3 
,206,19,115,96 ' “ 

J 15,201 ’ 163 » 240 ,3,238 , 19 , US, 96,173,13,208, 

170,41,4,208,6,138 

DATA 41,8,208,20,96,169,0,141,62,115,169.220,141 3^ 115 
,169,0,141,30,208 
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5 X 80 
5190 


5200 

52X0 

5220 

5230 

5240 

5250 

5260 


5270 


5280 

5290 


5300 


JO 


3X0 


5320 


O 


'.30 


1340 


5350 


wJO 


360 


5370 

5380 


DATA 238,66,115,96,169,0,141,63,1X5,169,220,141,46,115, 
169,0,141,30,203,238 

DATA 66,115,96,173,10,210,96,173,66,115,32,172,113,162, 
3,160,0,189,199,113 

DATA 153,135,125,200,202,208,246,173,56,115,32,172,113, 
162,3,160,0,189,199,113 

DATA 153,144,125,200,202,208,246,96,162,3,56,160,0,253, 

202.113.144.3.200.208 

DATA 248,125,202,113,72,152,9,16,157,199,113,104,202,20 
8,231,96,0,0,0,1 

DATA 10,100,173,66,115,201,100,240,8,173,56,115,201,100 
,240,10,96,206,65,115 

DATA 169,0,141,66,115,96,238,65,115,169,0,141,56,115,96 
,120,32,202,114,160 

DATA 14,162,0,189,253,114,149,176,232,136,208,247,32,10 
8,114,160,14,162,0,181 

DATA 176,157,253,114,232,136,208,247,160,14,162,0,189,1 

1.115.149.176.232.136.208 

DATA 247,32,108,114,160,14,162,0,181,176,157,11,115,232 
,136,208,247,160,14,162 

DATA 0,189,25,115,149,176,232,136,208,247,32,108,114,16 
0,14,162,0,181,176,157 

DATA 25,1 15,232,136,208,247,160,14,162,0-, 189,39,115,149 
, 176,232,136,208,247,32 

DATA 108,114,160,14,162,0,181,176,157,39,115,232,136,20 
8,247,32,216,114,88,96 

DATA 165,183,197,182,240,68,160,0,165,184,24,105,46,145 
,176,169,32,24,101,182 

DATA 168,166,185,169,0,145,178,200,202,16,250,169,32,24 
,101,183,141,64,115,162 

DATA 0,142,53,115,166,185,172,53,115,177,180,238,53,115 
,172,64,115,145,178,238 

DATA 64^115,202,16,237,165,183,133,182,165,184,133,189, 
96,165,184,197,189,208,182 

DATA 96,173,57,115,41,15,170,189,230,114,238,57,115,96, 
160,14,162,0,181,176 

DATA 157,68,115,232,136,208,247,96,160,14,162,0,189,68, 

115.149.176.232.136.208 

DATA 247,96,1,2,3,4,5,10,7,8,7,8,11,4,2,4,1,4,8,173 
DATA 0,211„73,255,96,0,208,0,132,0,120,0,0,0,8,0,16,0,0 


>390 


<400 

■410 


DATA 208,0,133,20,1203,0,0,0,8,0,16,0,0,2,208,0,13'.4,40,1 
20,0 

DATA 0,0,8,0,16,0,0,3,208,0,135,60,128,0,0,0,8,0,0,8 
DATA 0,0,8,79,0,0,0,0,0,0,0,0,0,5,0,0,0,0,156 
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ChexSum Tables 


5 = 1421 5030 

7 = 1494 5040 

8 « 1568 5050 

10 = 277 5060 

20 - 1124 5070 

30 ■ 144 5080 

35 - 1218 5090 

40 = 420 5100 

50 « 406 5110 

60 - 473 51^0 

70 = 782 5130 

80 = 1203 5140 

85 - 378 5150 

100 = 2454 5160 

110 - 2368 5170 

115 = 2372 5180 

120 = 2188 5190 

1000 - 716 5200 

5000 w 3467 5210 

5010 = 3393 5220 

5020 - 3601 5230 


3556 

5240 

= 

3559 

3405 

5250 

as 

3703 

3450 

5260 

=: 

3866 

3358 

5270 

= 

3745 

3611 

5280 

— 

3714 

3549 

5290 

— 

3769 

3484 

5300 

s= 

3719 

«r 

5310 

= 

3726 

3590 

5320 

- 

3761 

3507 

5330 

*= 

3776 

3706 

5340 

as 

3956 

3623 

5350 

~ 

3625 

3285 

5360 


3788 

3509 

5370 

= 

2398 

3446 

5380 

as 

2652 

3616 

5390 

— 

2736 

3567 

5400 

ss 

2390 

3748 

5410 

ss 

2037 

3630 




3390 




3619 

TOTAL 

as 

166569 
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OTHELLO 



CLASSIFICATION: Strategy 

This game uses the computer as a medium for two people to play 
the game of Othello. Pressing / or ? will display all the 
legal moves on the board as question marks. Placing the cursor 
over any man and pressing fire will do the same. If you have 
no legal moves then press T to change who's turn it is. 
Displayed on the right hand side of the screen is : 

Who's turn (X or 0) 

The cursors current position x,y 

The number of X's 

The number of 0's 

The amount of free spaces on board 

Use either joystick to move the cursor over the board. Press 
fire on either joystick to make a move. If you don't know how 
to play use ? to display legal moves and observe the results of 
making these moves. The object of the game is to have the most 
men at the end of the game. If a player has no legal moves 
then it becomes the other players turn to move (use T). The 
game is over when there are no legal moves for either player. 
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PROGRAMMING SUGGESTIONS 

The board display could be done in high resolution with color. 
A command to take back the last move made would be useful. The 
machine could play against a human. 

Holds the position of men on the board 
Local variable 

Cursor's horizontal position 
Cursor's vertical position 
Loop counter 

Used in count men routine 
Cursor's old position 
Index to array 
Holds inita1 value of P 
Local variable 

Address of start of video RAM 

Stores value of character under the cursor 
Who’s turn 1 or -1 

Used in move cursor routine 
0 if move not valid else =1 
Local variable,in delay routine etc. 

Local variable 

Counter for display in find all legal moves 

Program 

Structure 

Set colors and jump to initialization 
100 — 800 Make a move 

1000 - 1560 Find and make legal moves 

9000 Delay routine 

9100 Invalid move routine 

10000 - 10080 Draw the board 
10100 - 10130 Count number of men 
10150 — 10220 Print information 
11000 — 11140 Move the cursor 
12000 - 12040 Put the cursor on screen 
20000 - 20030 Initialize the system 
30000 - 30070 Main loop 


Program 

Variables 

B() 

C 

CURH 

CURV 

LOOP 

0 

OLDCUR 

P 

PH 

R 

SCREEN 

STOR 

TURN 

V 

VALID 

X 

Z 

ZZ 

routine 
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Listing 


Set colors and jump to 
initialization 


10 SETCOLQR i,0,12:SETCDLOR 2,0,0:POKE 752,1:GOTO 20000 
50 DATA -10,-9,-8,-1,1,8,9,10 ‘ 


Make a move 


100 IF ST0R=31 THEN ST0R=14 

110 VAL ID=0: IF ST0RO14 THEN 1000 

120 RESTORE 50:OCURV:R«CURH 

200 FOR LOOP”1 TO 8 

210 p=R*9+C: F'H=P 

220 READ Z 

230 P=P + Z 

240 IF B <P)~0 THEN 500 

250 IF B <P)-TURN THEN 500 
260 P«P+Z 

270 IF B(P)=0 THEN 500 

280 IF B (F*) =—TURN THEN GOTO 260 

290 P=PH 

300 VALID=1 

310 B(P)=TURN 

320 P«P+Z 

330 IF B < P)—TURN THEN 500 
340 GOTO 310 

500 NEXT LOOP 

600 IF NOT VALID THEN GOTO 9100 
610 STQR=47:IF TURN=1 THEM ST0R=56 
700 TURN®*—TURN 

800 GOTO 30000 


Find and make legal moves 


1000 


1010 


POKE OLDCUR,STORtZZ=63:VALID=0:FOR O 
8: RESTORE 50: POSITION 20,0:? ZZ;’*.L';: 
P»r*9+C:IF B(P) THEN 1510 


1 TO 8:FOR 
ZZ=ZZ-1 


R = 1 


TO 


1200 FOR LOOP—1 TO 8:P=R*9+CsPH=P:READ Z:F-P+Z:IF B<P>-0 OR 
B(P)=4 THEN 1500 
1250 IF B(P)—TURN THEN 1500 
1270 P*P+Z:IF B(P)=0 OR B(P)*4 THEN 1500 
1280 IF B(P)=—TURN THEN 1270 
1310 VALID=IsB(PH)=4:L00P»8 
1500 NEXT LOOP 
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1510 

1520 

1530 

1540 

1550 

1560 


9000 


9100 

9998 


10000 

10010 

10050 
10060 
10070 
1 0080 


10100 

10110 

10120 

10130 


NEXT RsNEXT C 


IF VALID THEN GOTO 1550 


POSITION 8,23:? M 
GOSUB S'000s TURN—- 
P«CURH*9+CURV:IF 
GOTO 30000 



TURN:GOTO 30000 
B (P) = 4 THEN STOR:=31 


Delay routine 


FOR X—1 


TO 1000:NEXT X:RETURN 


Invalid move routine 


POSITION 7,23:? " AA ": sPOSITION 10, 
; : GOSUB 9000: GOTO 30000 
REM G.STRETTON 85 


23: 




a hb 



? CHR$<125>:? 

FOR 0=1 TO 8 s FOR R=1 TO B:P=R*9+CsIF B(P)=4 THEN ? "?. 
; s B < P) -0 1 NE X T R s ? ? r. NE X T C: GO TO 10100 
IF NOT B(P) THEN ? " . * M ;sGOTO 100B0 

IF B <P) «1 THEN ? " X *'* 5 s NEXT R: ? s ? : NEXT C: GOTO :!.0100 
? "02 , i 

NEXT Rs? s? sNEXT C 


Count number of men 


X—0s0 = 0:FOR R=10 TO 80: IF NOT B(R) THEN NEXT R:GOTO 10 
150 

IF B(R)=1 THEN X=X+1 
IF B < R) = -1 THEN 0=0+1 
NEXT R 
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Print information 


10150 POSITION 33,8;? m X: ,i ;Xj; 

10160 POSITION 33,10:? H Q:";0; 

10170 POSITION 30,14:? "FREE:"?64-(X+O) ; 
10180 POSITION 30,0: IF TURN*=1 THEN ? "X"; 
10190 IF TURN——1 THEN ? "0"; 

10200 ? " SJIOVE"; 

10210 POSITION 8,23:? "T ^TOGGLES^TURN"; 
10220 RETURN 



11000 V=STICK<0>:IF V=15 THEN V=STICK(1) 

11010 IF V=15 THEN RETURN 

11020 IF V=14 THEN CURV=CURV-1 

11030 IF V=6 THEN CURV=CURV-1:CURH-CURH+1 

11040 IF V=7 THEN CURH=CURH+1 

11050 IF V-5 THEN CURH=CURH+1:CURV=CURV+1 

11060 IF V-13 THEN CURV=CURV+1 

11070 IF V—9 THEN CURV=CURV+1:CURH«CURH-1 

110S0 IF V—11 THEN CURH=CURH-1 

11090 IF V— 10 THEN CURH=CURH—1: CURV—CURV—1 

11100 IF CURHCl THEN CURH*CURH+8 

11110 IF CURH>8 THEN ClJRH=CURH-8 

11120 IF CURVCi THEN CLJRV«CURV+8 

11130 IF CURV>8 THEN CURV=CURV-8 

11140 RETURN 



12000 POKE OLDCUR,ST OR 

12010 OLDCUR-SCREEN+ <CURV*S0> + (CURH*2) 
12020 STOR=PEEK(OLDCUR) 

12030 POKE OLDCUR,128 
12040 RETURN 



20000 ? CHR*(125):DIM B(90):FOR X=0 TO 90:B(X)NEXT X 
20020 B(41)=1: B(49)=1:B<40)=~1:B(50)=-l:TURN*1 

20030 SCREEN=40000:CURH—1;CURV-1:STOR-14:OLDCUR“SCREEN+(CURV* 
80) + (CURH*2 > 
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Main loop 


30000 GOSUB 10000:REM DRAW SCREEN 
30010 GOSUB 11000:REM ADJUST CURSOR 
30020 GOSUB 12000:REM PUT CURSOR 

30030 IF ( NOT STRIG(D) OR ( NOT STRIG<0)> THEN 100 
3004O G=PEEK(754):IF 6=45 THEN POKE 754,255:TURN=-TURN:GOTO 3 
0000 

30050 POSITION 33,3:? CURH; " **'; CURV; 

30060 IF G=3S OR G=102 THEN POKE 754,255:GOTO 1000 
30070 POKE 77,0:FOR X=i TO 6:NEXT X:POKE OLDCUR,STOR:FOR X*1 
TO 3:NEXT XsGOTO 30010 


ChexSum Tables 


10 

— 

1146 

1500 

50 


1 162 

1510 

100 

— 

713 

1520 

1 10 

3S 

720 

1530 

120 

— 

1055 

1540 

200 

— 

407 

1550 

210 

— 

1 133 

1560 

220 

1= 

201 

9000 

230 

— 

589 

9100 

240 

— 

577 

10000 

250 


710 

1 00 10 

260 

= 

589 

10050 

270 


577 

10060 

280 

= 

890 

10070 

290 

2= 

408 

10080 

300 

— 

337 

10100 

310 

— 

657 

10110 

320 

=: 

589 

10120 

330 


710 

10130 

340 

— 

130 

10150 

500 


173 

10160 

600 


485 

10170 

610 


1185 

10180 

700 

=2 

469 

10190 

800 

= 

1 15 

10200 

1000 


3725 

10210 

1010 

— 

1 295 

10220 

1200 

=2 

3719 

11000 

1250 

— 

726 

1 10 3.0 

1270 

= 

1773 

1 1020 

1280 


889 

11030 

1310 

~ 

1347 

11040 


173 

11050 

— 

1407 

349 

11060 

— 

861 

400 

11070 

=SS 

1412 

3809 

11080 

sr 

864 

8S7 

1 1090 

= 

1420 

1705 

11100 

— 

841 

1 15 

11110 

~ 

850 

716 

11120 

= 

835 

4238 

11130 


844 

a ”> 

11140 

s; 

58 

4227 

12000 

— 

355 

928 

12010 

— 

1308 

1539 

12020 

— 

5 7 7 

211 

12030 

= 

339 

498 

12040 

— 

58 

2185 

20000 

= 

2254 

1102 

20020 

— 

3127 

1159 

20030 


2891 

171 

30000 

— 

1077 

746 

30010 

TTT~ 

12B2 

746 

30020 

ss 

1085 

1466 

30030 


896 

777 

30040 

5= 

2169 

549 

30050 

3S; 

778 

570 

30060 

— 

1295 

1445 

58 

30070 


2309 

1399 

395 

863 

1409 

853 

TOTAL 


9650 
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MOUNTAINS 



CLASSIFICATION: Arcade 


Fly the 
without 
mountai 
missile 
will be 


ship through the mountains for as long as possible 
hitting the mountains. If your ship tounches the 
ns the hit count is incremented. Every now and again a 
will fly by and you must avoid it or the hit counter 
incremented. Move the ship using joystick port 1. 


PROGRAMMING SUGGESTIONS 


Increase the intelligence of the enemy missiles so that when 
they come hurtling across the screen they will seek your craft 
out* _ Add objects to the bottom of the landscape that you have 
to pick up to keep the game going. Give the player a limited 

amount of fuel and time to complete his journey through the 
mountains. 
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Program 

Variables 


I General purpose variable 

PMBASE Pointer to player/missile area 

A Dummy variable 

Program 

Structure 

1 - 80 Initialize memory and variables 

90 Call machine language program 

100 - 120 Data for players 

2000 - 2114 Data for machine language program 
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Listing 


6 

7 

10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

2000 

2002 

2004 

2006 

2008 

20-10 

2012 

2014 

2016 

2018 

2020 

2022 

2024 

2026 

2028 

2030 

2032 

2034 

2036 


PRINT CHR# < 125) ; " INITIALIZATION ^.PLEASE 4 WftIT" 

FOR 1=30720 TO 30720+48: READ A: POKF I, A: NEXT I 
FOR 1=28672 TO 29820:READ A:POKE I,A:NEXT I 
FOR 1=33792 TO 33792+1023:POKE 1,0:NEXT I 
POKE 106,128 

PM=PEEK (106) : F , MBASE=P! V I*256 

GRAPHICS 1 

POKE 559,62 

POKE 53277,3 

POKE 54279,PM 

POKE 53256,1 

POKE 704,77:POKE 705,88:POKE 706,88 
A*USR(112*256) 

0 M 0 A 0 1 ’ 192 ’ 248 ’ 228 ? 226,255,255,124,0,0,0,0,0,0,0,0,0, 

DATA 0,0,123,255,255,123,0,0,0,0,0,0,0,0,0,0 a 0 f), 0 
DATA 0,0,222,255,255,222,0,0,0 ’ ’ ’ 

l?*™,, 3 ?’ 30 ’ 112 ’ 32 ' 216 ,113,32,138,112,32,77,114,32,169,1 

1 A 7S 1 1 e T-“? nr ^ 77 • 

A “ 5 *-'-**■ H / •—t , J. 1 J j --’i. ^ JjL. 

DATA 114,32,18,113,238,124,116,76,3,112,169,1,141,123,1 
16,141,214,113,169,206 " 1 

DATA 141,88,116,169,50,141,87,116,169,0,141,74,315,341 
73,115,133,77,141,30 ’ ' ’ 

DATA 208,162,4,160,0,185,90,112,153,128,125,200,202,208 
,246,162,6,160,0,185 

DATA 94,112,153,139,125,200,202,208,246,96,40,41 S'? ^6 
51,35,47,50,37,26 ’ 1 ’ 

DATm ^06,127,116,96,1 62., 3,56 , 160,0,253,134,112,144 3 '70 
0,208,248,125,134,112 ’“’ 

DATA 7-i ,152,9,16,157,131,112,104,202,208,231,96,0,0,0,1 
,10,100,174,127 ’ ’ 

DATA 116,208,213,162,60,142,127,116,162,0,160,19,189,14 
9,1 .Livj , 157,148,125 , 189,169 

DATA 125,157,168,125,189,189,125,157,188,125,189,209 1 2 
5,157,208,125,189,229,125,157 

DATA 228,125,189,249,125,157,248,125,189,13,126,157 12 

126.189.33.126.157.32.126 ’ ’ 

DATA 189,5j,126,157,52,126,189,73,126,157,72,126,189 93 
,126,157,92,126,189,113 

DA T^ 126 ’ 157 ’ 112 ’ 126 ’ 189 i 133,126,157,132,126,1 89,153,12 
6 , j. J7 ,152, 126,189,173 „ 126,157 

DATA 172,126,189,193,126,157,192,126,189,213,126,157,^1 

2.126.189.233.126.157.232.126 ’ ’ ’ 

DATA 189,253,126,157,252,126,232,136,208,138,32.59,313 

96.173.73.115.32.104.112 ' 

DATA 162,3,160,0,189,131,112,153,132,125,200,202,208,24 

6.173.74.115.32.104.112 

“I2,i“:?;7“K:2S:i69 ,112,iro,14S,1 “ ,2 ”’ 2B2 ’ 2 “’ 24 

“124^3^!™? i «tS ’ 0 ’ 162 ’ 18 ’ 169 ’ 0 ’ 145 ’ 240 ^ : 20,24 , i 

J®i’?ii’iS’ 241 - 202 ’ 208 ' 236 .32,176, US, 174,214,113 
, 169,167, loo-,240,169,125,133 

l2^10i!24;?l33.!24i 145 ’ 240 ’ 165 ’ 240 ’ 24 ’ 105 ’ 20 ’ 133 ’ 240 ’ 
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2038 


2040 


2042 


2044 


2046 

2048 

2050 

2052 

2054 

2056 

2058 

2060 

2062 

2064 

2066 

2068 

2070 

2072 


2074 


2076 


2078 


2080 

2082 


2084 


2086 


2088 


2090 

2092 


2094 


DATA 202,288,236,169,5,24,109,214,113,141,215,113,56,16 
9,20,237,215,113,240,31 

DATA 170,169,15,133,240,169,127,133,241,160,0,169,3,145 
,240,165,240,56,233,20 

DATA 133,240,165,241,233,0,133,241,202,208,236,96,173,1 
0,210,170,41,1,208,17 

DATA 138,41,128,208,1,96,173,214,113,201,15,240,3,238,2 
14,113,96,173,214,113 

DATA 201,1,240,232,206,214,113,76,184,113,7,0,173,77,11 
6,13,78,116,240,12 

DATA 173,77,116,208,3,206,78,116,206,77,116,96,169,7,14 
1,77,116,169,0,141 

DATA 78,116,32,71,114,201,1,240,16,201,2,240,22,201,4,2 
40,30,201,8,240 

DAT A 36,32,57,114,96,174,73,116,240,4,202,142,73,116,96 
,174,73,116,224,151 

DAT A 240,4,232,142,73,116,96,174,74,116,240,4,202,142,7 

4,116,96,174,74,116 

DATA 224,205,240,4,232,142,74,116,96,173,74,116,240,8,2 
06,74,116,169,20,141 

DATA 126,116,96,173,0,211,73,255,96,173,123,116,208,32, 


32,252,115,201,210,176 


DATA 3,32,93,114,96,169,1,141,123,116,32,252,115,201,15 

1.176.249.141.87.116 

DAT A 169,206,141,&8,116,96,173,?1,116,13,92,116,240,12, 
173,91,116,208,3,206 

DAT A 92,116,206,91,116,96,173,88,116,240,14,206,88,116, 
169,7,141,91,116,169 

DATA 0,141,92,116,96,169,0,141,123,116,169,7,141,91,116 
,169,0,141,92,116 

DATA 96,173,128,116,240,4,32,205,114,96,173,132,2,240,1 
,96,173,73,116,141 

DATA 101,116,173,74,116,24,105,8,141,102,116,169,1,141, 

128.116.96.173.105.116 

DATA 13,106,116,240,12,173,105,116,208,3,206,106,116,20 

6.105.116.96.173.102.116 

DATA 201,206,240,14,238,102,116,169,5,141,105,116,169,0 
,141,106,116,96,169,0 

DATA 141,128,116,96,173,4,208,41,1,208,15,173,12,208,41 
,2,208,17,173,13 

DATA 208,41,4,20B,27,96,238,73,115,169,0,141,30,208,96, 

169.200.141.87.116 

DATA 141,88,116,169,0,141,123,116,32,18,115,96,169,200, 

141.87.116.141.88.116 

DATA 141,101,116,141,102,116,169,0,141,123,116,141,30,2 
08,141,128,116,238,74,115 

DATA 96,0,0,120,32,21,116,160,14,162,0,189,66,116,149,1 
76,232,136,208,247- 

DATA 32,171,115,160,14,162,0,181,176,157*66,116,232,136 
,208,247,160,14,162,0 

DATA 189,80,116,149,176,232,136,208,247,32,171,115,160, 
14,162,0,181,176,157,80 

DATA 116,232,136,20e,247,160,14,162,0,189,94,116,149,17 
6,232,136,208,247,32,171 

DATA 115,160,14,162,0,181,176,157,94,116,232,136,208,24 
7,32,35,116,88,96,165 

DATA 183,197,182,240,68,160,0,165,184,24,105,46,145,176 
,169,32,24,101,182,168 
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2096 

2098 

2100 

2102 

2104 

2106 

2108 

2110 


DATA 166,185,169,0,145,178,200,202,16,250,169,32,24,101 
,183,141,129,116,162,0 

DATA 142,122,116,166,185,172,122,116,177,180,238,122,11 
6,172,129,116,145,178,238,129 

DATA 116,202,16,237,165,183,133,182,165,184,133,189,96, 
165,184,197,189,208,182,96 

DATA 173,124,116,10,144,2,73,29,141,124,116,96,173,10,2 
10,173,10,210,173,10 

DATA 210,173,10,210,96,160,14,162,0,181,176,157,130,116 
,232,136,208,247,96,160 

DATA 14,162,0,189,130,116,149,176,232,136,208,247,96,1, 
2,3,4,5,10,7 

DATA 8,7,8,11,4,2,4,1,4,8,0,208,0,132,0,120,0,0,0,8 
DATA 0,16,0,0,1,208,0,133,20,120,0,0,0,8,0,16,0,0,2,208 


2112 DATA 0,134,40,120,0,0,0,8,0,16,0,0 

,0 

2114 DATA 0,8,0,0,0,0,0,0,79 


208,0,135,60,120,0 


ChexSum Tables 


1 

— 

2276 

2020 

— 

5 

— 

1446 

2022 

=r 

6 

— 

1587 

2024 

zz 

7 


1421 

2026 


10 

= 

277 

2028 

— 

20 

= 

1124 

2030 


30 


144 

2032 

=r. 

40 

— 

420 

2034 

n: 

50 

= 

406 

2036 


60 

= 

473 

2038 


70 

=: 

371 

2040 


90 


1203 

2042 

=r 

90 

— 

716 

2044 


100 

= 

2810 

2046 

— 

110 

= 

2372 

2048 


120 

ST 

1360 

2050 

=: 

2000 

= 


2052 

— 

2002 

s= 

3688 

2054 


2004 

— 

3613 

2056 


2006 


35e9 

2058 


2008 


3458 

2060 


2010 

=r 

3639 

2062 

— 

2012 

= 

3320 

2064 

— 

2014 

rs: 

3878 

2066 


2016 

= 

4118 

2068 

— 

2018 


3892 

2070 



3811 

2072 

— 

3780 

4086 

2074 

= 

3643 

4089 

2076 

= 

3399 

3820 

2078 

— 

3524 

3724 

2080 

— 

3667 

3807 

2082 


3824 

3580 

2084 


3505 

3994 

2086 

— 

3648 

3621 

2088 

~ 

3773 

3741 

2090 

~ 

3822 

3700 

2092 


3678 

3629 

2094 

— 

3729 

3646 

2096 

— 

3701 

3488 

2098 

-r 

4073 

TCTTO 

w 1 \J O 7 

2100 

— 

3962 

3307 

2102 

= 

3577 

3568 

2104 

— 

3749 

3566 

2106 

— 

3206 

3608 

2108 

SK 


3701 

2110 

= 

'“>er-r-7 
ilJO / 

3607 

2112 

— 

2637 

3620 

2114 

— 

1012 

3641 




3460 




3508 

TOTAL 

s= 

2255S 

3695 
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VOGONS 



CLASSIFICATION: Skill 

Move your player around the screen for as long as possible, 
avoiding the dreaded Vogons. There are three Vogons and they 
move around the screen at random, very quickly. At the start 
of the game you are prompted for the speed you want the Vogons 
to travel at. You may input any value between 1 and 255, with 
1 being the highest speed and 255 the slowest. Use joystick 1 
to move your player left, right, up and down. The longer you 
survive the more the score counter is incremented. When you 
are hit by a Vogon the score counter is set to zero. 

PROGRAMMING SUGGESTIONS 

Plant mines on the screen to restrict the area your player can 
move in and add 'bombs' that will disable or freeze your 
movement temporarily. 


25 





Program 

Variables 


i 

PMBASE 

PM 

A 


General purpose variable 
Location of player missle data 
Pointer to player missile data 
Holds data read from data statements 


Program 

Structure 


1 - 

6 

10 - 

85 

90 


100 - 

130 

5000 - 

5460 


Clear the player area and read data 
Setup the player missiles 
Call machine language program 
Data for players 

Data for machine language program 
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Listing 


l 

5 

6 

10 

20 

nc 

26 

27 

30 

35 

40 

50 

60 

70 

80 

85 

90 


FOR I=33792 TO 33792+1023:POKE 1,0:NEXT I 
FOR 1-30720 TO 30720+79:READ A:POKE I,A:NEXT I 
FOR 1-28672 TO 29600:READ A:POKE I,A:NEXT I 
POKE 106,128 

PM-PEEK(106):PMBASE=PM*256 

PRINT CHR* (125) ; : PRINT "WHAT ^SPEED ; 

INPUT A:IF A<1 OR A>9 THEN GOTO 26 
POKE 29595,A 
GRAPHICS 1 


POSITION 0,0:PRINT #6;"TIME: ^^ * * ^SPEED:" 


POKE 559,62 
POKE 53277,3 
POKE 54279,PM 
POKE 53256,3:POKE 
POKE 704,77:POKE 
POKE 707,77 
A—USR(112*256) 


53257,3:POKE 53258 
705,88:POKE 706,88 


POKE 


\J •- 1 1 


59 


Data for players 


100 

no 

120 

130 


5000 

5010 

5020 

5030 

5040 

5050 

5060 

5070 

5080 

5090 

5100 


DATA 128,192 

0 , 0,0 

DATA 0,0,123 
DATA 0,0,222 
DATA 0,0,222 


,248,228,226,255,255 , 124 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 





Data for machine language 
program 


DATA 32,21,112,32,169,112,32,253,112,32,101,114,32,44,1 

14.32.87.112.76.3 

DATA 112,169,0,141,143,115,169,50,141,91,115,141,90,115 
,169,8,141,107,115,169 

DATA 0,141,105,115,169,50,140,104,115,169,50,141,119,11 
5,141,118,115,169,2,141 

DATA 121,115,169,25,141,133,115,141,132,115,169,4,141,1 
35,115,169,0,141,149,115 

DAT A 141,148,115,141,30,208,96,173,149,115,13,150,115,2 
40,20,56,173,149,115,233 

DATA 1,141,149,115,173,150,115,233,0,141,150,115,76,128 
,112,169,0,141,149,115 

DATA 169,3,141,150,115,238,148,115,173,148,115,32,61,11 
4,162,3,160,0,189,88 

DATA 114,153,133,125,200,202,208,246,173,155,115,32,61, 
114,162,3,160,0,189,88 

DATA 114,153,144,125,200,202,208,246,96,173,94,115,240, 

4.206.94.115.96.169.3 

DATA 141,94,115,32,95,114,170,41,1,208,16,138,41,2,208, 
23,138,41,4,208 

DATA 30,138,41,8,208,35,96,173,90,115,201,8,208,1,96,20 
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5110 

5120 

5130 

5140 

5150 

5160 

5170 

5180 

5190 

5200 

5210 

5220 

5230 

5240 

5250 

5260 

5270 

5280 

5290 

5300 

5310 

5320 

5330 


5340 


5350 

5360 

5370 

5380 

5390 


6.90.115.96.173 

DATA 90,115,201,153,208,1,96,238,90,115,96,173,91,115,2 
08,1,96,206,91,115 

DATA 96,173,91,115,201,130,208,1,96,238,91,115,96,173,1 
42,115,240,4,206 r 142 

DATA 115,96,173,155,115,141,142,115,173,105,115,141,146 
,115,173,104,115,141,147,115 

DATA 173,107,115,141,145,115,173,152,115,141,151,115,32 
,166,113,173,151,115,141,152 

DATA 115,173,145,115,141,107,115,173,146,115,141,105,11 

5.173.147.115.141.104.115.173 

DATA 119,115,141,146,115,173,118,115,141,147,115,173,12 

1.115.141.145.115.173.153.115 

DATA 141,151,115,32,166,113,173,151,115,141,153,115,173 
,145,115,141,121,115,173,146 

DATA 115,141,119,115,173,147,115,141,118,115,173,133,11 
5,141,146,115,173,132,115,141 

DATA 147,115,173,135,115,141,145,115,173,154,115,141,15 

1.115.32.166.113.173.151.115 

DATA 141,154,115,173,145,115,141,135,115,173,146,115,14 
1,133,115,173,147,115,141,132 

DATA 115,96,173,145,115,201,1,240,13,201,2,240,32,201,4 
,240,51,201,8,240 

DATA 68,96,173,151,115,240,10,206,151,115,173,147,115,2 
01,8,208,4,32,20,114 

DATA 96,206,147,115,96,173,151,115,240,14,206,151,115,1 
73,147,115,201,153,240,4 

DATA 238,147,115,96,32,20,114,96,173,151,115,240,12,206 
,151,115,173,146,115,240 

DATA 4,206,146,115,96,32,20,114,96,173,151,115,240,14,2 
06,151,115,173,146,115 

DATA 201,130,240,4,238,146,115,96,32,20,114,96,174,10,2 
10,224,4,176,249,189 

DATA 79,115,141,145,115,173,10,210,201,30,144,249,141,1 
51,115,96,173,12,208,41 

DATA 14,208,1,96,169,0,141,148,115,141,30,208,96,162,3, 
56,160,0,253,91 

DAT A 114,144,3,200,208,248,125,91,114,72,152,9,16,157,8 
8,114,104,202,208,231 

DATA 96,0,0,0,1,10,100,173,0,211,73,255,96,120,32,51,11 
5,160,14,162 

DATA 0,189,83,115,149,176,232,136,208,247,32,226,114,16 
0,14,162,0,181,176,157 

DATA 83,115,232,136,208,247,160,14,162,0,189,97,115,149 
,176,232,136,208,247,32 

DATA 226,114,160,14,162,0,181,176,157,97,115,232,136,20 
8,247,160,14,162,0,189 

DATA 111,115,149,176,232,136,208,247,32,226,114,160,14, 
162,0,181,176,157,111,115 

DATA 232,136,208,247,160,14,162,0,189,125,115,149,176,2 
32,136,208,247,32,226,114 

DATA 160,14,162,0,181,176,157,125,115,232,136,208,247,3 
2,65,115,88,96,165,183 

DATA 197,182,240,68,160,0,165,184,24,105,46,145,176,169 
,32,24,101,182,168,166 

DATA 185,169,0,145,178,200,202,16,250,169,32,24,101,183 
,141,144,115,162,0,142 

DATA 139,115,166,185,172,139,115,177,180,238,139,115,17 
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1 


5400 

5410 

5420 

5430 

5440 

5450 

5460 


2,144,115,145,178,238,144,115 

DATA 202,16,237,165,183,133,182,165,184,1 

184,197,189,208,132,96,160 

DATA 14,162,0,181,176,157,156,115,232,136 

0,14,162,0,189,156,115 

DATA 149,176,232,136,208,247,96,1,2,4,8,0 

20 , 0 , 0,0 


, 1S9,96,165 
,208,247,96,16 


,208,0, 


0,1 


DATA 8,0,16,0,0,1,208,0,133,20,120,0,0,0,8,0,16,0,0,2 
DATA 208,0,134,40,120,0,0,0,8,0,16,0,0,3,208,0,135,60,1 
28,0 


DAT A 0,0,8,0,0,0,0,0,79,0,0,0,0,0,0,0,0,0,0,0 
DATA 0,0,0,0,0,0,4,33,0 


ChexSum Tables 


1 

— 

1421 

5030 

ZZ 

5 

= 

1495 

5040 

ZZ 

6 

-- 

1553 

5050 

— 

10 

— 

277 

5060 

=r. 

20 

= 

1124 

5070 


nc 

jL, u.' 

*= 

1230 

5080 

r= 

26 

~ 

931 

5090 

— 


ST. 

580 

5100 


30 

— 

144 

5110 


35 

— 

1328 

5120 


40 

— 

420 

5130 


50 


406 

5140 

zz 

60 

—• 

473 

5150 


70 


1663 

5160 


80 

— 

1203 

5170 


85 

= 

361 

5180 

— 

90 

— 

716 

5190 

ZZ 

100 

— 

2810 

5200 

ZZ 

110 

~ 

O T "T 

4. / 4. 

5210 


120 

~ 


5220 

rr; 

130 


2372 

5230 


5000 

— 

3424 

5240 


5010 

— 

3704 

5250 


5020 

~ 

-7 •*!*’ **7* 

o / o 

5260 

z: 


3790 

5270 

2= 

3739 

3800 

5280 

sr 

"7 C" "7 

■J* •_> u / 

3686 

5290 

— 

3649 


5300 

SK 

3168 

3694 

5310 

— 

3719 

2*666 

5320 

=2 

3777 

3347 

5330 

— 

3712 

3375 

5340 

= 

3847 

3521 

5350 


3863 

3611 

5360 

— 

3727 

3991 

5370 

=r 

3730 

3981 

5380 

= 

3691 

4035 

5390 


4087 

4039 

5400 

= 

3961 

3981 

5410 

~ 

3719 

4035 

5420 

— 

2981 

3989 

5430 

=: 

2439 

4036 

5440 

— 

2743 

3412 

5450 

— 

2024 

359 1 

5460 

~ 

998 

3799 




3798 




3*696 

TOTAL 

ST 

19313 

3606 
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LIFE 



CLASSIFICATION: Educational 

Life is a simulation of the growth of a colony of cells that is 
controlled by prescribed rules. The joystick moves the cursor 
left and right. Pressing the fire button on the joystick sets 
the cell to the current cursor color. Pressing the R key sets 
a random starting pattern. Pressing the ESC key changes the 
cursor color and pressing RETURN exits the setup stage and 
starts the simulation. 

PROGRAMMING SUGGESTIONS 

Change the radius of the neighbourhood and change the rules 
that drive the game. 
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Program 

Variables 


OLDCELLS() Holds current array of cells 

NUCELLS() Working copy of cells 

R() Rule table 

R Radius of neighbourhood 

K Number of possible states of a cell 

Program 

Structure 

10 Jump to initialization 

100 - 170 Main Loop 

5000 Display 

6000 - 6080 Calculate next generation 

9000 Random setup 

20000 - 20030 Initialize routine 
20050 - 20076 Set number of states 
20400 - 23010 Setup initial formation 
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Listing 


10 GOTO 20000 


Main Loop 


100 POKE 77,0:OLDCELLS(81)=DLDCELLS<1):OLDCELLS(0)=OLDCELLS 
(80) 

140 T=USR(1536):REM SCROLL SCREEN 
150 GOSUB 5000: REN DISPL.AV 
160 GDSUB 6000s REN CALC NEXT GENERATION 
170 GOTO 100 


Display 


5000 POSITION 0,OFFSET:FOR T=1 TO 80:^ #6;CHR3- (OLDCELLS(T) ) ; 
:NEXT T:RETURN 


Calculate next generation 


6000 FOR 1 = 1 TO 80 
6010 S=0:FOR P-I—R TO I+R 

6020 Z—Ps IF Z >80 THEN Z=Z-30 
6030 IF Z<1 THEN Z=2+80 
6040 S=S+OLDCELLSC Z) 

6050 NEXT P 

6060 NUCELLS(I)=R<S) 

6070 NEXT I 

6080 FOR 1 = 1 TO 80: OLDCELLS (I ) =NUCELLS ( I ) : NEXT I : RETURN 


Random setup 


9000 FOR 1=1 TO 80:OLDCELLS(I)=INT(RND(0)*K>:NEXT I:DSPFLAG= 
1:RETURN 

20000 DIN OLDCELLS<81),NUCELLS(81) 

20030 GOSUB 30000 


Initialize routine 


20050 K=2:REM 
20060 R=2:REM 
20062 DIN R(5) 


UMBER O 


RA&IU5 O 


EMEE 

mmn Msmnmnsi i r»i« ro 
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Set number of states 


20071 R<0)=:0 

20072 R(1)=0 

20073 R(2)=1 

20074 R(3)=0 

20075 R(4)~1 

20076 R(5)=0 


Setup initial formation 


20400 

20410 

21000 

21010 

21020 
21030 
21040 
21050 
21060 
21070 
21090 
21100 
21110 
21130 
21140 
21150 
22000 
23000 
23010 
30000 

31000 

31001 

31002 

31003 


FOR T=0 TO 81:OLDCELLS < T)=0 
NEXT T 
GRAPHICS 5 

X = 40: ? "R=RND * ^RETURN^START J3TKMOVES ^CURSOR": ? *’Esc=C 
OLOUR“ 

COLR=l 
OFFSET=0 

IF DSPFLAG THEN GDSUB 5000 

A—STICK < 1) s OLDX = X: DSF'FLAG=0 

IF A= 11 THEN X = X — 1: IF X<0 THEN »X + S0 

IF A=7 THEN X=X+1:IF X>79 THEN X=X-B0 

POSITION OLDX,1:7 #6,CHR*(0); 

POSITION X,1s ? #6;CHRS(COLR>; 

IF NOT STRIG <1) THEN OLDCELLS(X + l)=COLR;DSPFLAG-1 
A—PEEK< 764):POKE 764,255 

IF A=2B THEN COLR-COLR+1:IF COLR>K-l THEN COLR-0 

IF A—40 THEN GOSUB 9000 

IF A<>12 THEN GOTO 21040 

GRAPHICS 54-16: REM 0 .STRETTON 85 

OFFSET-47:GOTO 100 

FOR T=1536 TO 1601:READ A:POKE T,A:NEXT T:RETURN 

DAT A 104,169,47,141,66,6,169,160,133,203,169,155,133,20 

4,169,180,133,205,169,155 

DAT A 133,206,160,0,162,20,177,205,145,203,200,202,208,2 
48,165,203,24,105,20 

DATA 133,203,169,0,101,204,133,204,165,205,24,105,20,13 

3,205,169,0,101,206 

DAT A 133,206,206,66,6,208,213,96 
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ChexSum Tables 


10 

— 

1 14 

20050 

100 

rr: 

2084 

20060 

140 

— 

1705 

28062 

150 

= 

903 

20071 

160 

— 

1804 

20072 

170 

= 

1 12 

20073 

5000 

— 

1934 

20074 

6000 

= 

523 

20075 

6010 


1172 

20076 

6020 

= 

1521 

20400 

6030 


964 

20410 

6040 

= 

814 

21008 

6050 

— 

171 

21010 

6060 

= 

S85 

21020 

6070 

-• 

169 

21030 

6080 

— 

1736 

21048 

9000 

~ 

2357 

21058 

20000 

s: 

955 

21060 

20830 ~ 


117 

21870 


~ 

5632 

21090 

2Z 

741 


5283 

21100 

ZZ 

869 


370 

21110 


1531 


393 

21130 

ZZ 

10B5 

= : 

458 

21140 

ZZ 

1753 

— 

524 

21150 

zz 

641 

— 

460 

22000 

zz 

528 


526 

23000 

zz 

1376 

— 

462 

23010 

- 

542 

zzz 

998 

38000 


1404 

— 

166 

31000 

S2 

3877 

= 

148 

31001 

ZZ 

3575 

S= 

4206 

31002 

zz 

3518 

— 

348 

31003 

— 

1496 

“ 

n *7 
/ A- 




— 

390 




— 

1 ^DD 

Jl w O 

TOTAL 

zz 

6883 

— 

1852 




— 

2028 
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RATMAZE 



CLASSIFICATION: EvasiorVStrategy 

In this game, you must move around the maze, dodging everything 
you can. You must find the compass, which is hidden somewhere 
within the walls of the ratmaze. You must carefully travel 
through moving fences, dodge the flying balls and the mines 
that they lay. You must also avoid the deadly walls or else 
you will be destroyed. To move through the maze use the keys: 

Q=UP 
Z=DOWN 
I=LEFT 
P-RIGHT 

any other key stops you from moving 

PROGRAMMING SUGGESTIONS 

Increase the number of objects you must find to complete the 
game. Make the objects which are flying round the screen more 
intelligent and more deadly. 
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Program 

Variables 

Dummy variables 
Character under your program 
Your position in the maze 
Your score for the game 


A,I 
0 
P 

SCORE 


Program 

Structure 

3 - 95 Initialize the system 

100 - 150 Call machine program 

1000 - 1100 Restart game 
2000 - 2040 Give bonus points 
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Initialize the system 


9 

l® 

n 

12 

13 

14 
S3 
16 
20 
21 
22 


24 


23 


26 


27 

2E 

29 

3B 

31 


32 

33 


J4 

33 

36 


37 
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GRAPHICS k&i" **6t 7 46? 7 *6? 7 4401* „ „ uJn 5 7 ! ! 

I S li 


^'PK.F 2P3,i:FPI e 5ffl-4. 80- a PPKE 205, t-4:PDt f 206-136: PCH-IE i£ 
9t^0lFfJKE J 697 -00 

FCff l*«20ij0P TO _#479;READ A: r 0 * E T . A; NEKT 1 

DATA 104. 16“.243-72.165.246-72*169.lo4-133sS4ffi.169,6-13 

3 - 146 * 1 69.0 - i 33 , ;-'Pp& , 169.80 

I'HIA ; :■ "*209, 160,0. J-&2.0. 1 69.1a, 1 33,20B* 169,83* 143*200.2 
oQS.2fr.3,20B. 248,1.77*; 45,41 

DATA L27*24.105-8, 16.-2-. I&9.E. 133 H 20£, *69 ,b, 133.20V * ! 69- 
0.145.^08.190*2B8,J 9B 

HAT A 207 p „246 * 165, 20£i* 24.105,129,133*2EE»169„8.133^2 

07.169*0.145,206*230.203.j 4b 

^AlA 207.108,246. ■77. zA5 ,23b.245,74,U3.240,19f ,245.145 
. 24 5 _ 230. 245.270 p 240 + 165.209 , 24 

HAT A 105,8, 133,209,202*208 ^171,304,1 33. 246, 104.] 33, 245 - 
*6 


OA1A 104.160,0,1 * E-, 133 . _.438, 169 ,W< 133,2B9 , i ^ - 0. 3 45,1 

06„23®. 20Bh, -. 45.2(58, i 65«2HB* 24.105-7 

DATA 133^^6,2^3,239.165,209*24 % 1|3S T 1,133,209.201 . 144,2 
03 .228. J 69,0.17-3 *203.16^ , 8vj * I 33.209 

DAI A 169 145,200- 27-0, 20B ,266,246,74 * 169.4, 10 j , 289.133 

.209,201,1 *4.203„2 3?,9* 


DATA >2. ILI,, >46, 2. i t ^ * 0, 13- ■* ✓ r 164 

n.0 - ' . tl_ . 3 2 . i-Q lT H 0 , j 77 


t. - 


- ->■.> 


s 


trA a A 70EJ i 133.2 4 $ * 1 . J / V „ *,8 „ Li3 H ]4a.1 6b, AR + 1 ^ 

0,0, 145. 45. 160,3, S 77 


DATA 2f*£< * I 4 * 3 0 1 _ ?4 d , 1 33.241,, i6fcr + tD . j 45.2iit- * l 69 „ffl_ 10 1 .246 
. 20 J * J 4 i,2 06,2.1 . n-t! 

DATA 1 ,-'46,160-1 *145.^ 0E. 160.0, 177,24b* J 60 - 2 T 1 4 !■'■ , ?t'-8 .. 

1 6PI. , 1 77.21,1s , l 60.0 

DATA 145.245,169*5,24,101.206.13^206,202.206, Lfcli ,1B4,1 
33-246.104,13^,243.96 

DAI A 104 *169,0.1 '13,24b< i 69.00 . 133.246* 1 62.64 
DATA 160,0,169,L20.145,245.100.200,249,230*246 
DAT A 2w2.20 if, 2-4 2.^6 

DAT A 5 04 r fc 73,247.2,201,47,240.13*201.23. 240 ,36.2*1 ,3 3- 2 
40.59.101 * 3 B,24®.66,96,165.203.201,J176.7,165,104 
DATA 201.81 * ’ 76, 1 .96.56, 16S* 203,233,138* J33*203. 165 *20W 
,1 "3,0 . 133.204*96*i65.203 - 201.J 2F. 149,7.165,204,201,13 1 
DATA TSIF:. 1.961^4* 165.203.105. S 2B, 133,70^-, 165.2&4, 

. 204*96.4 165.2^3*41 . 127,201 ,P*240^2.19^*203*96 

DATA 165,203,41,127*201.SB,176,24230*203,96 
Pf-TA 1B4, 16- - 203* ' T 2,1 d 5 * , 72, . 65,205*72, i o5.2P* ,72 

DATA 169.20,^33.207* 162,4*, 160*0* 177 f 203^ J 45, K05 *201j , 20 
2.2Gd, 24i h 24.165,203.105,120,133.2E3.165*204 
DAT P 105.0,133*204. ^4 ^ 1 65.205 , 1U5 * 4E3i - i 33, 205*163,;™. 10 

5*04133.206,196.207,200*214 

DATA 1P4 * J 33.206. 1B4.133,205.104-133,204, i04,|33-203,96 
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A-U3R < 20285 ) : A=U8R < 2© 1 J 9 ) 

F DR i — ,i / 00 ( u I / j. b 81 ER 2 s POKE T . 64 ; A— I NT (RNl> (1 > *5 ) -f 
fA < 4 THEN F‘0KE 7 1 * 1.256-A? MEXT T : B0T0 6 0 
PC) KE T + .1 . A ~ 3: N E X T T 

FOR T® 1 536 TO 1 695 STEF* 5: P0i<E T „ INT iRND ( 1) * 1 p>0) 4 14: 

E T + i , I NT (RND ( X ) *40 ) +96 

POKE T+2 ■ PEEK ( PEEK < 7 ) +PEEK < 79- j. ) *2.56 ) 

A= I NT (RND (1 ) *5) r IF I NT (RND < 1*6) «1 THEN POKE T +3.. 1 : C 
SB 

POKE T+3« X 25+A 

POKE 1+4.84:NEXT TsSCORE®© 

GRAPH ICS 0: SETCOLOR 2,13 0: SETCOLOR 1 . 13,7 : PQS A T X ON 

22:? "SCORE. M :SCORE:SETCOLOR 4.4.4 

POKE 752,© 


i ; i 


POK 


rf » » i < 


i 6, 


Call machine program 


108 

Hi —v J o R 

(28186) 

1 03 

A=U5R(20000) 

105 

A=USR 
OKE P 

< 28311):p = PEEK<283)+256*P£EK(204> +1428 : 

—*r 

* 

110 

A® Li SR 

(28408) 

115 

IF 0< 

>0 THEN SOTO 1800 

128 

POKE 

P 0 

140 

POKE 

33748 « I NT ( RND 1 > *4 ) +92! 

3. 45 

SCORE. 

® SCORE-r 1 ’. FOB IT I ON 26,22PR IN T SCORE 

1 50 

GOTO 

i os 


K (P) s F* 


X000 
1010 
J. ©20 
1030 


Restart game 


? CHRT(125) 

X P P-33748 7HEN 007 0 200© 

GRAPHICS 5 8: ? #6 s ? #6:7 #6:7 #6:7 #6: 11 
FOR T=0 TO 400:NEXT 7 


.BAMfc. *L 


f ! V i i-' O t I 


1040 

GRAPHICS 0 


1858 

POSITION 15.10: 

? "HIT *. ANV *KEY" 

1068 

POSITION 15.12: 

? "FOR * ANOTHER!" 

1878 

POSITION 18.3.4s 

'? "GAME" 

1880 

POKE 754,8 


1898 

l p p £ p |< 7 5 4 ) <; > gj 

THEN RUN 

1 I 00 

GOTO 1098 



Give bonus points 


2000 GRAPHICS 18:? #6;? #6:? #6:7 #6:7 #6: *' * * ^ i4 .^WELL 
7 #6: ? #6; " * *BONUS *.1000 *PTS. " : SCORE®SCORE +1008 

2010 POKE 203.4:POKE 204.80 
2020 POKE 754.0 

2030 IF PEEK(754) THEN GOTO 90 
2040 GOTO 2030 


ME ' " 
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ChexSum Tables 



= 

2208 

’y ■“» 
.Jl ._*! 

sr 

9 

5= 

2486 

34 

E2 

10 

ss 

1280 

"Tf ES* 
V 

ss 

11 

=: 

3937 

36 

ss 

12 

— 

3868 

37 

~~T 

13 

= 

3666 

38 

ss 

14 

sr 

4023 

4S 

ss 

15 

ss 

4170 

50 

ss 

1 6 

= 

27 i 7 

53 

=5 

20 

— 

4343 

60 

Ss* 

2 3 


A ‘T «r o 

65 

- 


” 

■2* / t>& 

-y / ■—■■ »-r 

70 

ss 


— 

•J'O 

75 

~ 

24 


3655 

60 

ss 

25 


3639 

90 

ss: 

26 

rr 

3544 

95 

ss 

27 

— 

3655 

100 

si: 

rn. Q 

C> 


2:089 

103 

sr 

29 

— 

2183 

105 

ss 

30 

ss 

853 

1 10 

— 

31 


5147 

I i *■*" 

J. U, 

sr. 

T 'i 


cr-?- •; o 

vJv.' J. X. 

1 ^-71 

-f- ul. t,.* 

ss: 


4963 

140 

ss 

1095 

2032 

145 

■S 

1064 

2479 

150 

ss 

112 

4763 

1000 

= 

343 

3925 

1010 

=s 

5177 

2597 

1020 

— 

2149 

1 186 

1030 

= 

509 

3697 

1040 

= 

79 

749 

1050 

ss 

1159 

2987 

1060 

— 

1195 

1444 

1070 

ss 

676 

2369 

1080 

— 

2d 5 

600 

1090 

sr 

506 

J 614 

1100 

ss 

271 

2643 

2000 

ss 

4468 

253 

2010 

— 

636 

S_ T '*7- 
CJ O ,il 

2020 

— 

{zr it* 

2— 

497 

2630 

ss 

65*6 

2.741 

2040 

— 

191 

509 




362 




334 

TOTAL 

ss 

1 o 3 D ! 
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2D MAZE 



CLASSIFICATION: Skill 

You are placed randomly within a maze and must work your way 
through to the end.The end of the maze is a flashing wall of 
color. Move forward using the joystick. 

PROGRAMMING SUGGESTIONS 

Put a time limit on solving the maze. Introduce random 
teleporters which change your position and orientation; once 
triggered, they disappear. Increase the size of the maze. 
Have nasty things chase you! Add secret, invisible passageways 
that change your position. 
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Program 

Variables 

MZ() Maze array 

J Current junction 

D Actual junction 

MAND$ Machine code for AND instruction 

M0R $ Machine code for OR instruction 

Program 

Structure 

10 - 110 Initialize the game 

120 - 140 Scan the keyboard 

150 - 180 Move the player 

190 - 200 Rotate left or right 

210 — 440 Draw the players view 
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Listing 


10 

•i trr 

i U 
20 
30 
40 

30 

60 

70 

80 

85 


Initialize the game 


30T0 3000 


PRINT CHR#(125>;"WAIT":DX=9:DY=9:XF=5:YF=9 
DIM MZ <DX,DY > :COLOR 1 
RESTORE 50 


FOR 1=0 TO DY:FOR 0=0 TO DX:READ 
T I 

DAT A 15,3,4,7,5,7,5,5,15,5,11,14 

11 , 8 , 5 , 5 , 3 ,/, 11 , 8,10 

DATA 10,8,10,6,3,6,11,12,7,9,12, 

5 , , 6 , 15 , 3 , 10 , 2 , 6 , 13 

DAT A 7,5,9,10,10,12,9,10,12,5,14 

, 14 , 5 , 7 , 7 , 5 , 3 , 10 , 4,5 

DATA 11,8,4,9,8,4-, 9,12,7,5 

GOTO 110 


A;MZ(J , 



5,9,8,6, 
, 7,5,9,1 


I)= A:NEXT J;NEX 
1 o , \j , , 10,6, 14, 

12,15,5,13,3,5, 

■*- , ■! 1 w/ , 1.J , i , j. 1 


Call MAND and MOR 


90 

100 


LL=USR (ADR < MAND#) , < X 1 *2) ,15): LL 
1,8)/8):RETURN 

RR=INT(XI/2)+(USR(ADR(MAND#),X1 


—L. L 1N T (USR (A D R (M AND #) 
,1> *8) :RETURN 


< X 


Scan the keyboard 


110 

X=INT(RND(0)*6+2) 
PHICS SsGOSUB 210 

120 

B=STRIBU) :A=STIC 

130 

IF A=11 THEN X1=D 

140 

IF A=7 THEN X1=D: 

150 

IF USR(ADR <MAND#) 
= DX 

160 

IF USR (ADR(MAND#) 
Y=0 

170 

IF USR(ADR(MAND#) 
X=0 

ISO 

IF USR (ADR 1 (MAND#) 
=DY 

190 

GOSUB 210:IF X=XF 

200 

GOTO 120 


8sD=RRsGOSUB 210:GOTO 120 
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Draw the players view 


210 

220 

230 

240 

250 

260 

270 

280 

281 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 


3000 

3010 

3020 

3030 

3040 


GRAPHICS 8:XN=X:YN=Y:IF USR(ADR(HANDS) ,D,MZ < X.Y >> =0 THE 
N RETURN 

IF USR (ADR (HANDS) , D , M Z (X , Y) ) = 1 THEN XN=X-1:IF XN-:'0 THEN 
XN«DX 


IF USR(ADR(HANDS), D, HZ(X , Y))=2 THEN 
N YN=0 

IF USR (ADR (HANDS) , D, HZ ( X , Y) ) =4 THEN 
N XN-0 

IF USR(ADR(HANDS>,D,MZ(X,Y))=8 THEN 
YN=DY 


YN=Y+1sIF YN>DY THE 
XN«X+lsIF XN>DX THE 
YN=Y—1:IF YN<0 THEN 


PLOT 0,0:DRAWTO 87,57:PLOT 0,159:DRAWTO 87,130:PLOT 319 

,0:DRAWTO 232,57:PLOT 319,159:DRAWTO 232,130 

IF USR(ADR(HANDS),MZ(XN.YN),D)=0 THEN 300 

PLOT 157,103:DRAWTO 162,103:DRAWTO 162,107:DRAWTO 157 l 

07:DRAWTO 157,103 

PLOT 1J/ , 10-:-.: DRAWTO 130,85: PLOT 162,103: DRAWTO 189,85 
F'LOT 15/ , 107: DRAW! Q 130,116s PLOT 162,107: DRAWTO i 89 1 l a 
:GOTO 310 

PLOT 130,85:DRAWTO 189,95:PLOT 138,116pDRAWTO 189,116 
X1 —D:GOSUB 100: IF USR(ADR(HANDS) .MZ< XN,YN> ,RR)~0 THEN 3 

40 

PLOT 87,57:DRAWTO 87,130:PLOT 130,85:DRAWTO 87,R5:PLOT 
130,116:DRAWTO 87,116 

IF USR (ADR (HANDS > , HZ ( XN , YN) , D) >0 THEN PLOT 130,85: DRAW!" 
0 130,116 

X1=D:GOSUB 90: IF USR(ADR(HANDS) ,HZ(XN,YN) ,LL)=0 THEN 37 
0 

PLOT ,57: DR AWT 0 2o2 , 130: P'LOT 189,85: DRAWTO 232,85: F'L 
OT 189,116:DRAWTO 232,116 

IF USR <ADR<HANDS> ,HZ(XN,YN) ,D) >0 THEN PLOT 189,85:DRAWT 
0 189,116 

X1-D:GOSUB 90: IF USR(ADR <HANDS) ,HZ < XN,YN) ,LL ) >0 THEN 40 
0 

PLOT 232,57:DRAWTO 189,65:PLOT 232,130:DRAWTO 189,116 
IF USR(ADR <HANDS > ,HZ(XN,YN) ,D > =0 THEN PLOT 189,35:DRAWT 
0 189,116 

X1— D:GOSUB 100: IF USR <ADR(HANDS) ,HZ(XN,YN) ,RR) >0 THEN 4 
30 


PLOT 87,57:DRAWTO 130,85:PLOT 87 
IF USR(ADR(HANDS) ,HZ(XN,YN) ,D;=0 
0 130,116 

IF XN—XF AND YN~YF THEN GRAPHICS 
RETURN 


130:DRAWTO 130,116 
THEN PLOT 130,85sDRAWT 

O:PRINT M HQME M 


Data for MAND and MOR 


DATA 104,104,133,213,104,133,212 

DATA 104,37,213,133,213,104,37,212,133,212,96 

RESTORE 3000:DIM MAND*(18),MORS(18) 

FOR J~1 TO 18:READ A:HANDS(I,I)=CHRS<A):NEXT I 
HORS=MANDS:MORS(9,9)=CHRS(5):HORS(14 14)-CHRS(5) 
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REM A=USR < ADR (MAND$ ) , X , Y) „ A=X 2ND Y 

REM A=UBR < ADR ( MOR$ ) „ X , Y) . A= "X OR Y 

GOTO 15 


3050 

3060 

3070 


ChexSum Tables 


10 

= 

159 

180 

as 

n7trn 
s. / Jx. 

360 

sa 

'?n. r 7 cr , 

■fc* i «L» ^ ■ 

15 

= 


190 

as 

1027 

370 

as 

d*n i4i.. ’CJ 

20 


716 

200 

as 

144 

380 

as 

1809 

30 

= 

215 

210 

sa 

2554 

390 

as 

2426 

40 

— 

nnoT 
*.*17 0 

220 

as 

2752 

400 

sa 

2129 

50 

— 

3539 

230 

as 

2752 

410 

= 

1795 

60 


er n 

240 

as 

2749 

420 

— 

4 •*!.- i 

70 


cr o 
wJ / 

250 

as 

2764 

430 

sa 

1 196 

80 

as 

1187 

260 

as 

3203 

440 

sa 

58 

85 

= 

12B 

270 

sa 

1500 

3000 

as 

1468 

9.0 

— 

3037 

280 

as 

1968 

3010 

as 

2117 

100 

as 

18c 0 

281 

— 

1785 

3020 

as 

972 

110 

= 

2; i '• 3 

290 

as 

1788 

3030 

— 

1859 

120 

= 

1 874 

300 

sa 

1 823 

3040 

as 

00*77 

A 4 ‘2* *— 1 

130 

s. 

1675 

310 

sa 

2145 

3070 

sa 

131 

140 

= 

1804 

320 

— 

2905 




* 50 

as 

2740 

330 

sa 

22:47 




160 

= 

2740 

340 

sa 

r~\ r-\ 

a. *J' ■»' 4 

TOTAL 

sa 

106190 

170 

sa 

,p*\ *jp "» 

A / 'j / 

350 

as 

2755 
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MINOTAUR 



CLASSIFICATION: Arcade 

The objective of this game is to guess a number in the range of 
0 to 99. You do it by moving a piece around a board of 
numbers. As you pass over a number, it is removed from the 
board and added to your score. If you pass over an X, a clue 
appears at the top of the board for a short time. If you pass 
over a question mark ,a random number is added to your score. 
If you pass over a number greater than six as you move around 
the board, you are pursed by a minotaur. If he captures you, 
you're dead. Remember, once you pass over a number it is 
removed from the board and you cannot pass over spaces. If you 
become encircled by spaces press the fire button to escape. 
When you have guessed the number, move your piece to the white 
cursor. 

PROGRAMMING SUGGESTIONS 

Add different pieces to the board, such as bombs and mines. 
Place tempory barriers in the path of both the player and the 
minotaur. 
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Program 

Variables 


sc 

H$ 

R 

C 

PO 

PE 

BE 

Cl 

R1 

MA 


Program 

Structure 


10 - 

90 

100 - 

400 

400 - 

550 

560 - 

7 50 

850 - 

910 

920 - 

1070 


Screen memory 

Characters on the screen 

Row co-ordinate of player’s piece 

Column co-ordinate of player’s piece 

Player’s piece position 

Player's piece's previous position 

Start of matrix on screen 

Column position of minotaur 

Row position of minotaur 

Minotaur’s screen position 


Initialize the game and variables 
Draw the screen and generate clues 
Main loop 

Move your player round the screen 
Move the minotaur 
Print messagesy 
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Listing 


10 

20 

21 

24 

^c=* 

XiU 

x.. O 

/p -jr 

30 

40 

60 

70 

80 

81 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 


REM MICRO MINOTAUR 
CLR 

DIM RR*(24) ,CC* < 40) ,CL*(201) ,H*(11) ,NU*(2) ;A* < 5) ,WA*(40 
),VT*(5) 

POKE 82,0:PRINT CHR*(125); 

SP==0: REM SET SPACE CHARACTER 
IN-128:REM SET INVERSE SPACE 
MI=13:REM SET THE MINOTAUR CHARACTER 
XX—56:REM SET CLUE CHARACTER TO X 
PRINT CHR* <125); 

SC-40000:CO-40960:C-0:R-0:PO-SC+(R*40)+C:BE-SC+130 

FOR 1=1 TO 24:RR*(I , I NEXT I 

FOR 1 = 1 TO 40: CC* (I , I )="“*••'; NEXT I 

FOR 1 = 1 TO 200:CL*(I,I)=“^” :NEXT I 

FOR 1=1 TO 34;WA*(1,1)=" A "sNEXT I 

J=1:FOR 1=17 TO 25:H*(J,J)=CHR*<I):J-J + l:NEXT I:H*(10,1 
0 ) — CHR* (._•« 1 ) : H* (11,11) —CHR* (56) 

FOR I=SC TO SC+39:POKE I,IN:NEXT I 

FOR I-SC+(23*40)+1 TO SC+(23*40>+38:POKE I,IN:NEXT I 
FOR I-SC+40 TO SC+(23*39) STEP 40:POKE I,IN:NEXT I 
FOR I-SC+39 TO SC+(23*40)+39 STEP 40:POKE I,IN:NEXT I 
POSITION 0,0: PRINT 11 ' 1 ■; "Mffl 



FOR I-SC +130 TO SC +850 STEP 80 
FOR J=I TO 1+18 STEP 2 
Q-INT(RND( 1 )* 12 ):IF Q =0 THEN 170 
A—ASC(H*(Q,Q)) 

POKE J,A:NEXT 3 :NEXT I 

NU-INT(RND( 1 )* 100 ):IF MU -0 THEN 200 

NU*-STR*(NU):RA-INT(RND( 1 )* 3 ):IF RA -0 THEN GOTO 210 
IF NU< 10 THEN NU* ( 2 , 2 ) -NU* ( 1 , 1 ): NU* (1 , 1 ) = " 0 '* 

IF RA -1 THEN CL* ( 1 , 19 ) — "FIRST ^DIGIT ^EQUALS : CL* ( 20 , 20 ) 

—NU*( 2 , 2 ) 

IF RA -2 THEN CL* (1 , 19 ) = M SECOND IGIT ^EQUAL A " : CL* ( 20 , 20 ) 
-NU*( 1 , 1 ) 

CN— 1 :FOR 1=2 TO NU -1 

A-NU/I:B=INT(A): IF A< >B THEN 290 

IF CN =7 THEN 300 

CL*( ( (CN* 20 ) +1 ) , (CN* 20 ) + 17 ) — "FACTOR *OF ^NUMBER : CL* ( (CN 
* 20 )+ 19 , (CN* 20 > + 20 )—STR*(A):CN=CN +3 
NEXT I 

IF NU/ 2 —INT(NU/ 2 ) THEN CL*(((CN* 20 )+ 1 ),(CN* 20 )+ 18 )-"THE 
^NUMBER * IS ^EVEN" 

IF NU/ 2 <>INT(NU/ 2 ) THEN CL*(((CN* 20 )+ 1 ),(CN* 20 )+ 17 )="TH 
E ^NUMBER * IS ^ODD" 

GB-VAL(NU*( 1 „ 1 )):FOR 1=2 TO 9 :A=GB/I:IF A-INT(GB/I) THE 
N GOSUB 1060 :GOTO 340 
NEXT I 

GB-VAL(NU*( 2 , 2 ))sFOR 1-2 TO 9 :A=GB/I:IF A- 1 NTCGB/I) THE 
N GOSUB 1070 :GOTO 360 
NEXT I 

SD—VAL(NU*( 2 , 2 )):IF SD/ 2 -INT(SD/ 2 ) THEN CL*(( 7 * 20 )+ 1,(7 
* 20 ) + 19 ) - "FIRST ^DIGIT A IS A EVEN" 

IF SD/ 2 <>INT(SD/ 2 ) THEN CL*(( 8 * 20 )+ 1 , ( 8 * 20 )+ 18 )—"FIRST ^ 
DIGIT^IS^ODD" 
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■-*80 

39® 

40® 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 


550 

560 

570 

580 

59® 

600 

61® 

620 

630 

640 

650 

660 

670 

680 

680 


700 

710 

720 

730 

740 

750 


760 

770 

780 

790 

800 

810 

£20 

830 

840 

850 

860 


SD=VAL(NU$(2,2)):IF SD/2=INT(SD/2) 
*20) +20 > = " SECOND *D IGIT A IS .JEVEN “ 

IF SD/20INT (SD/2> THEN CL*((8*20) 
^DIGIT ^ IS ^ODD" 

FOR 1=1 TO 9:IF I*I=NU THEN CL*<<2 
□DUCT *.OF ^ A ^SQUARE “ 

NEXT I 


THEN CL*<(8*20)+1,<8 
+1,(8*20)+19)="SECOND 


0*9)+1,<20*9)+18)= M PR 


HO=BE+10:POKE HO,IN 

C1=6 s R1=6:NA=BE+(R1*40)+C1:VE=PEEK<MA):POKE MA,MI 
C=10: R=1S: PO=BE+ <R*40) +Cs VA=F'EEK (F‘0) : POKE F’0,209 
B=STRIG(1):A=STICK(1):IF A=15 AND B=1 THEN 550 
IF A=14 THEN GOSUB 560 
IF A=13 THEN GOSUB 620 
IF A=11 THEN GOSUB 680 
IF A=7 THEN GOSUB 740 
IF B=0 THEN GOTO 1040 
GOSUB 850 




POSITION 0,0: PR I NT " + 4- + * ,, 5 WA$ 

TT=TT+CU 

POSITI ON 0. 0: PR I NT RR* (1,22); CC* (1,7) ; " [|g 
£U; “ ^ s TT 

CU=0:POKE MA,141:GOTO 450 
IF R=0 THEN RETURN 

R-R-2: PE=PO: PO=BE+ (R*40) +C: DA=F‘EEK (F‘0) : IF DA=SP THEN R= 
R+2:PO=BE+(R*40)+C:RETURN 
IF DA=MI THEN GOTO 920 
GOSUB 800 

POKE PE , VA: FL=PEEK (PE) : CU=FL-16: POKE PE , SP: VA=PEEK (F‘0) 
POKE PO,208:RETURN 
IF R=1B THEN RETURN 

R=R+2: PE = PO: F‘0=BE+ (R*40) +C: DA=PEEK (PO) : IF DA=SP THEN R= 
R-2:PO=BE+(R*40)+Cs RETURN 
IF DA=NI THEN GOTO 920 
GOSUB 800 

POKE PE , VA: FL = PEEK (PE) : CU=FL.-16: POKE F‘E , SP 
V A=F'EEK (PO) s POKE PO , 20? s RETURN 
IF C=0 THEN RETURN 

C=C-2:PE=PO:PO=BE+(R*40)+C:DA=PEEK(PO):IF DA=SP THEN C= 
C+2:PO=BE+(R*40)+C:RETURN 
IF DA=MI THEN GOTO 920 
GOSUB 800 


POKE PE,VA:FL=PEEK(PE):CU=FL-16:POKE PE,SP 
VA=PEEK(PO) :POKE PO,209 s RETURN 
IF C=18 THEN RETURN 

C-C + 2: PE=PO: PO=BE+(R*40)+C: DA=F‘EEK (PO) : IF DA=SF‘ 
0—2:PO=BE+(R*40}+C s RETURN 
IF DA=NI THEN GOTO 920 
GOSUB 800 

POKE PE , VA: FL=F‘EEK (PE) : CU—FL-16: POKE PE , SP 
VA=PEEK(PO) :POKE PO,209 s RETURN 
IF DA=63 THEN CU=INT<RND<1)*10) 

FU=INT < RND(9)* 10) 


THEN C= 


DI=(FU*20)+1:IF DA=XX THEN POSITION 0,0:PRINT CC* ( 
RR*(1,2);CL*(DI,DI+19);:GOSUB 1050 
IF DA=IN THEN GOSUB 1000 
RETURN 

IF CU<6 THEN RETURN 
IF C1>C THEN C1=C1~2 


5) 


n 
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370 IF C1<C THEN Cl=Cl+2 
880 IF R1>R THEN Rl=Rl-2 
890 IF R1<R THEN Rl=Rl+2 

900 POKE MA,VE:NA=BE+(R1*40)+C1:IF PEEK(MA)=209 THEN GOSUB 
920:STOP 

910 VE=PEEK(MA):POKE MA,MI:RETURN 

920 PRINT CHR*(125)PRINT RR* (1,10) ; "THE ^MINOTAUR ^.HAS ^EATE 
N a YOU" 

930 POSITION 0,0: PR I NT RR* < 1 , 13 > ; "THE ^NUMBER *WAS A " ; NU 
940 PRINT :PRINT :PRINT 

950 PRINT “DO ^YOU ^WANT ^ANOTHER ^GAME(Y/N> : " ; 

960 INPUT A$:IF A$="“ THEN PRINT " -t H ;:GOTO 960 
970 IF A*= H Y“ THEN GOTO 20 
980 IF A*="N" THEN END 
990 GOTO 960 

1000 PRINT CHR* (125) : PRINT RR* (1,2); CC* (1 ,3) ; "WHAT *. IS ^.THE ^NU 
MBER“;:INPUT VTS 
1005 VT=VAL(VT*> 

1010 IF VTONU THEN PRINT " WRONG *THE ^NUMBER A WAS NU: GOTO P4 
0 

1020 PRINT "CONGRATULATIONS ^YOU ^HAVE A BEATEN ^MINOTAUR" 

1030 GOTO 940 

1040 PRINT CHR* (125) ; : GOTO 930 
1050 FOR 1=1 TO 300:NEXT I:RETURN 

1060 CL* ( <6*20) +1 , (6*20) +19) -“FACTOR ^SECOND *DIBIT":CL*< (6*20 
)+20,(6*20)+20)=STR*(I):RETURN 

1070 CL*< (5*20)+1, (5*20)+1S) ^'FACTOR ^FIRST^DIGIT": CL* ( (5*20) 
+20,(5*20)+20)=STR*(I):RETURN 
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ChexSum Tables 



—■ 

48 

358 

~~ 

•ll« X 

as. 

2865 

360 


i*“j “;r 

rfCn O 

— 

682 

378 

sa 

24 

~ 

177S 

338 

as 

'*) cr 


i 770 

390 

as 

26 

— 

2386 

400 

— 

27 

sr 

2183 

4 10 

as 

30 

— 

356 

428 

— 

40 

~ 

3214 

430 

as 

60 

— 

1434 

440 

as 

70 

— 

1465 

45© 

as 

80 

~ 

1 4 8 6 

460 

as 

81 

= 

1459 

47© 

as 

90 

— 

4 736 

488 

as 

100 

— 

1279 

490 

as 

110 


T‘5 j v 

588 

as 

120 

~ 

1914 

518 

sa 

130 

— 

2102 

52© 

S3 

140 

as 

7439 

53© 

aa: 

150 

as 

1127 

548 

— 

160 

— 

784 

550 

as 

170 

~ 

1327 

560 

—- 

180 

as 

1822 

578 

— 

190 

— 

748 

580 

•— 

280 

=r 

1204 

59© 

as 

218 

= 

1897 

688 

-- 

220 

— 

2 10© 

6 i 8 


238 

— 

3477 

Avi?, 

-- 

248 

as 

3445 

“T l/l 

as 

258 

sa 

930 

640 

sa 

268 

= 

1873 

65© 

—- 

278 

~ 

409 

66© 

— 

230 

= 

5274 

67© 

as 

290 

=s 

177 

OC j\if 

sa 

38© 

as 

3676 

69© 

— 

318 

— 

3582 

780 

-- 

328 

-- 

3336 

71 0 

as 

338 

aa: 

177 

728 

:s: 

348 

as 

3436 

73© 

aa: 


177 

740 

as 

338 

4529 

75© 

sa 

4994 

3465 

768 

as 

4 7 

4 . 1 ,.. 

4592 

778 


121 

3520 

780 

aa: 

2060 

3758 

79© 

=4 

1 ©08 

177 

80© 

aa: 

1 30© 

938 

B10 


861 

2968 

82© 


3579 

2850 

S3© 

— 

51 S 

1974 

348 


58 

554 

85© 

as 

389 

490 

86© 

— 

942 

584 

878 

aa: 

94© 

51 1 

38B 


C~\ /. J 

-? •+ o 

451 

89© 


944 

2©1 

908 


235© 

491 

91© 

ss: 

1 ©73 

645 

920 


231 1 

. •- )l ‘ ->. 

i _ .* J .*1 

W HJ 

938 


.j. m ? a'i, 

p • p 

948 

722 

i 79 

301 

958 

as 

2 1. 2 6 

499y 

968 

as 

/ 8 8 

S 4. 

9/0 

as 

4 fcj / 

i 1 

7 ci k> 

as. 

—5 C'n 

O / 


99© 


2 1. 6 

379 



r * i / 


J. *-‘. j li.! v_ ■ 

—- 

j‘. f i.j 

339 

1 pj^fj 



499B 

1818 


* lU. 

542 

18.2 8 

S-. 

w 

1 21 

183© 

aa: 

184 

2868 

1 © 4 © 

as 

5 4 9 

1 808 

185© 

SI 

695 

308 

1 ©60 

sa. 

4 6* ■" ; / 

-£-J- 9y Cy ^ 

1878 

s;. 

4592 

542 

1 21 

2960 

t r*i T‘ i 

l i..' I 


19 9 / 


j. ms 
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BATTLESHIP 



CLASSIFICATION: Arcade 

You are the commander of a battleship and must destroy enemy 
submarines. You destroy them by dropping depth charges on 
them. Each time one of them escapes the escape counter is 
incremented. Each time you hit one, the hit counter is 
incremented. 

PROGRAMMING SUGGESTIONS 

Add different kinds of submarines to your fleet of enemies and 
give them varying degrees of strength. Fit the submarines with 
different kinds of weapons, for example some sea to air 
missiles. Use the joystick to move your battleship left and 
right and press the fire button to launch a depth charge. 
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Program 

Variables 

i 

X2 

Y2 

XI 

Y1 

X3 

Y3 

X4 

Y4 


Program 

Structure 


2 - 

85 

100 - 

130 

200 - 

350 

1000 - 

1041 

2000 - 

2999 

3000 - 

3599 

4000 — 

4999 

3000 - 

5999 

6000 - 

6999 

7000 - 

7030 

9000 - 

9090 


General 
X posit 

Y Posit 
X posit 

Y posit 
X posit 

Y posit 
X posit 

Y posit 


purpos 
ion of 
ion of 
ion of 
ion of 
ion of 
ion of 
ion of 
ion of 


e variable 
battleship 
battleship 
submarine 1 
submarine 1 
submarine 2 
submarine 2 
depth charge 
depth charge 


Clear out memory and read in data 

Data for players 

Set up players 

Main loop 

Initialize game 

Move the battleship 

Move the submarines 

Move the mine 

Update the score 

Check for collision 

Data for machine language program 
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Listing 


•Imi 

CLR 


6 

FOR I 

—30720 TO 30798 

7 

FOR I 

—33792 TO 33792 

9 

FOR I 

=28672 TO 29050 

10 

POKE 

106,128 

20 

PM“PEEK<106):PMBASE=I 

30 

GRAPHICS 1 

40 

POKE 

559.62 

50 

POKE 

w? / / n 'J* 

60 

POKE 

54279,PM 

70 

POKE 

53256,2 

80 

POKE 

704,87:POKE 705 

85 

POKE 

707,77 

100 

DATA 

24,16,24,36,255 

1 10 

DATA 

0 

0,0,32,32,112,1 

120 

DATA 

24,16,24,36,255 

1 O0 

DATA 

0,0,123,255,255 

200 

POKE 

53256,1 

210 

POKE 

53257,3 

220 

POKE 

53258, 1 

230 

POKE 

u.< •«» 4^ \ J / tf JL 

300 

POKE 

704,125 

310 

POKE 

705,31 

320 

POKE 

706,118 

340 

POKE 

707,175 

350 

A—USR 

(28672,XI,Y1,X2 

1000 

GOSUB 

2000 


1010 

1020 

1025 

1027 


I 

I 


GOSUB 3000:REM BATTLESHIP 
GOSUB 4000:REM SUBMARINES 
GOSUB 5000:REM CHARGE 
GOSUB 6000:REM UPDATE 


1030 

1040 

1041 
2000 
2020 
2025 

2999 

3000 
3005 
3010 
3020 
3030 
3040 
3100 
3110 
3120 
3200 
3210 
3220 

3500 

3501 
3505 


A=USR<28672,XI,VI,X2,Y2,X3,Y3,X4,Y4) 
GOSUB 7000:REM CHECK 
GOTO 1010 
POSITION 0,0 

X2=100:Y2=2B:Y4=220:POKE 53278,0 
GOSUB 4500:Y1«Y:GOSUB 4500:Y3«Y 
RETURN 

REM BATTLESHIP 

A—STICK(1):POKE 53278,0 

IF A=11 THEN GOSUB 3100:RETURN 

IF A=7 THEN GOSUB 3200:RETURN 

IF STRIG(1)=0 THEN GOSUB 3500;RETURN 

RETURN 

REM LEFT 

IF X2=0 THEN RETURN 
X2»X2-4:RETURN 
REM RIGHT 

IF X2=128 THEN RETURN 
X2=X2+4:RETURN 
REM DROP DEPTH CHARGE 
IF IN THEN RETURN 
X4—X2:Y4=Y2+8:IN=1 


3599 RETURN 

4000 REM SUBMARINES 
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4005 GOSUB 4100:GOSUB 4200:RETURN 
4100 REN NOVE 3UBNARINE 1 

4105 IF XI>180 THEN GOSUB 4500:ES=ES+1:Y1=Y:X1=0:RETURN 
4110 X 1 = X 1 +• (RND (1) *4) -.RETURN 

4199 RETURN 

4200 REN MOVE SUBMARINE 2 

4205 IF X3>180 THEN GOSUB 4500:ES=ES+1:Y3=Y:X3=0:RETURN 
4210 X3-X3+(RND(1)*4):RETURN 

4299 RETURN 

4500 Y-RND<9)*150:IF Y>150 THEN 4500 
4505 IF Y<60 THEN 4500 
4510 RETURN 

4999 RETURN 

5000 REM 

5005 IF IN—0 THEN RETURN 

5010 IF Y4>150 THEN Y4-220:IN=0:RETURN 

5015 Y4=Y4+4:RETURN 

5999 RETURN 


11 » 


6000 REM 

6005 POSITION 0,0: PRINT #6; "ESCAPED: ES; " JHITS: HI : u 

6999 RETURN 

7000 REM 

7005 A^PEEK(53263):IF A=0 THEN RETURN 

7010 IF A=1 THEN GOSUB 7100:RETURN 

7015 IF A=4 THEN GOSUB 7200:RETURN 

7020 IF A—5 THEN GOSUB 7100:SOSUB 7200:RETURN 

7030 RETURN 

7100 HI=HI+1:Xl-0:GOSUB 4500:Y1=Y:IN=0:POKE 53278,0:Y4=220: R 
ETURN 

7200 HI“HI+1 : X3=0: GOSUB 4500: Y3=Y: IN~0: POKE 53278,0: V4=^0- R 
ETURN 

7999 RETURN 

9000 DATA 104,104,104,141,61,113,104,104,141,60,113,104,104, 
141,75,113,104,104,141,74 


9005 

DATA 

113 

, 104 


141, 

103, 

113, 

9010 

DATA 

113 

i •> 


113, 

149, 

176, 

9015 

DATA 

208 

,247 


4 tk. ’U ji 

, 136 

,208 

9020 

DATA 

162 

,0,11 


2,160,14 

, 162 

9025 

DATA 

157 

i 67 , 


, 149 

, 176 

f~- t /*-> 

^ *2 

9030 

DATA 

r*- n 

170 , 


, 208 

,247 

, 160 

9035 

DATA 

189 

, 95 , 


14,1 

62,0 

, 181 

9040 

DATA 

113 



2 , 240,68 

, 160 

9045 

DATA 

24, 

105, 


9,0, 

145, 

17S , 

9050 

DATA 

250 

, 169 


3,166,18 

5,17: 

9055 

DATA 

180 

H s. 1 Q 


2,16 

r>T*7 

, 165 

9060 

DATA 

184 

J *7r 

, 1 Oo 




er 


113,41,15,170,189,36,113 
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9065 


9070 


9075 

9080 


DATA 238,112,113,96,160,14,162,0,181,176,157,117,113,23 
2,136,208,247,96,160,14 

DATA 162,0,189,117,113,149,176,232,136,208,247,96,1,2,3 
,4,5,10,7,8 

DATA 7,8,11,4,2,4,1,4,8,0,208,0,132,0,120,0,0,0,8,0 
DATA 16,0,0,1,208,0 ? 133120 j 0 j 0 ^ 0 j 8 j 0 ^ 16 j 0 ^ 0 ^ ^ ^ 


9085 DATA 134,40,120,0,0,0,8,0,16,0,0,3,208,0,135,60,120,0,0 

,0 

9090 DATA 8,0,0,0,0,0,0,79,0,0,0,0,0,0,0,0,141,30,208 


ChexSum Tables 


+- 

as 

40 

1040 

= 

749 

5999 

ss 

58 

6 


1359 

1041 

— 

143 

6005 

= 

1864 

7 

= 

1421 

2000 

— 

1 13 

6999 

2= 

58 

9 

— 

1631 

2020 

= 

1575 

7005 

S3 

990 

10 

— 

277 

2025 

sc 

1247 

7010 

23 

613 

20 

— 

1121 

2999 

= 

58 

7015 

32 

617 

30 

~ 

144 

3005 

ss 

889 

7020 

S3 

887 

40 


420 

3010 

— 

565 

7030 

S3 

58 

50 

— 

406 

3020 

— 

556 

7100 

S3 

2894 

60 

= 

472 

3038 

— 

640 

7200 

32 

2902 

70 

SS 

-r “7 

3040 

=s 

58 

7999 

32 

58 

80 


1185 

31 10 

— 

304 

9000 

32 

3800 

85 

— 

361 

3120 

S3 

609 

9005 

23 

3900 

100 

ss 

2502 

3210 

sa 

410 

9010 

23 

3548 

110 

— 

2580 

3220 

— 

608 

9015 

23 

3747 

120 

= 

2502 

3501 

— 

-J / 

9020 

23 

3711 

130 

= 

2280 

3505 

— 

1368 

9025 

S3 

3824 

200 

— 

371 

3599 

2= 

58 

9030 

23 

3638 

210 

— 

374 

4005 

S3 

460 

9035 

32 

3778 

220 

= 

373 

4105 

£2 

2106 

9040 

32 

3730 

230 

= 

375 

4110 

S3 

993 

9045 

=2 

3719 

300 

— 

278 

4199 

= 

58 

9050 

23 

3845 

310 

= 

289 

4205 


21 18 

9055 

23 

4013 

320 

= 

267 

4210 

=2 

1001 

9060 

32 

3852 

340 

— 

361 

4299 

23 

58 

9065 

23 

3760 

350 

= 

2407 

4500 

2= 

1289 

9070 

23 

T j / •-<* 

OlfiO 

1000 

=r 

145 

4505 

S3 

545 

9075 

23 

OTcic; 

_ 1 ~ ‘.t |_J vj 

1010 

— 

1092 

4510 

= 

58 

9080 

2= 

jLm W V 1 / 

1020 


1117 

4999 

=2 

58 

9885 

23 

2637 

1025 

— 

794 

5005 

2= 

—r . -j?- 

■-> 1 *J» 

9090 

2= 

2191 

1027 

= 

835 

5010 

=2 

1215 




1030 


2407 

5015 

— 

618 

TOTAL. 

L 

128402 
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CRYPT 




HE MM 


J - 

JMPm '¥«¥ 


2 ~ 



3 r 



4 r: 

CH&MME KEY 


V” 

Cl Ut S I 








CLASSIFICATION: Passive 

This program has a very good software random number generator. 
This is used instead of the normal rnd(0) function because the 
sequence of numbers generated by this method is repeatable. 
Changing the seed numbers,which should be prime, will change 
the numbers produced by the random routine which ,in turn 
alters the results of the encode and decode routines. The 
program is self prompting and the only thing to remember is 
that the seed numbers should be prime. 

PROGRAMMING SUGGESTIONS 

It should be possible to make this program work on text files 
from tape or disk and to work on larger amounts of text. 
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Program 

Variables 


G 

CODE$ 

FLAG 

H$ 

KEY A 
KEYB 
LOOP 
MAIN$ 

Q 

SEEDA 

SEEDB 

T$ 

TEST 

Y 

2 


Used in random routine 

Holds result of encode or decode 

Flag 

List of allowable text characters 
User key A 

User key B 

Loop counter 
Holds text 
Local 

Seed A for random routine 

Seed B for random routine 

Local string 

Flag for print routine 

Local 

Local 


Program 

Structure 


10 


Jump to initialization routine 

11 


Error message 

12 


Error Message 

20 - 

27 

Input and check text 

30 - 

32 

Input new keys 

100 - 

160 

Main loop 

900 


Set for decode 

1000 


Set for encode 

1005 - 

3020 

Encode or decode 

4000 - 

4050 

Random number generator 

5000 


Delay loop 

20000 - 

21000 

Initialization routine 

30000 - 

30040 

The modulo arithmetic routine 

31000 


The good bye routine 
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Listing 


10 

11 
12 


GOTO 


20000 

"1 *TO *.5*0NLY M s50SUB 5000: GOTO 100 
:? “ INVALID ^CHARACTER"sSOSUB 5000:GOTO 


20 


Jump to initialization routine 

~ i . i i m 


20 


21 


r ;>o 


/**! 

sL O 


24 

25 

26 
27 


FL..AG=0: ? CHR* ( 125; : ? "UPPER *CASE 
*ONLY ":POSITION 2,4s INPUT MAIN* 
FOR X-1 TO LEN(MAINS):X*~MAINS< X, 
IF Xt*' 1 4 " THEN GOTO 26 
IF X*>~ ,! 0 11 AND XS<~ ,, 9 , ‘ THEN GOTO 
IF XS>="A" AND X*< = "Z" THEN GOTO 
FLAB=1 


.ALPHA *AND 

X) 

26 

26 


NEXT X s IF F l.‘A B T Ti E N G U T 0 1 2 
GOTO 100 


t NUMBERS 


Input and check text 


30 

31 

"*T O 
w‘ 2. 

100 

110 

120 

1 0 
140 
150 
160 


? CHRS (125) s ? "NOTE ..NUMBERS ^.SHOUL D ...BE ..PRIME" : ? :? ;? 

? "KEY A *.»" ? KEYA: " ^ .. ..KEY JE<=» ; KEYBs ? s ? "NEW .VALUE .FOR 
K EY *A" s :INPUT KEYA 

? : ? "NEW . VALUE 1 : ...FOR .KEY .B" s : INPUT KEYB 
? CHRSU23) 

POSITION 15.G:? "MENU" 

2 =? :7 "l^JtPinYJEXT 1 '^ s? n 2 ..DECODE": ? :? "3 

ENCODE "s? ; ? " 4 ,. * .CHANGE ..KEY " : ? : ? " 5 J!l I T " 

? : INPUT X*: IF LEN(X*)~0 THEN 100 
T*=X£ (1 . 1 ) : IF TS< " 1 " OR TS>‘*5" THEN GOTO 1 1 
X«VAL<X$)sIF X<1 OR X>S THEM II 
ON X GOTO 20,900.1000.30.31000 




Set for decode 


900 


TES1"=© : ? CHRS (125) s 7 
0 i©05 


"WAIT .DECODING" 


s GOT 


58 






IOB0 
j 0E5 
J.E10 
:i 02B 
1030 
1040 
1050 


.1070 
1080 
:i 090 
1100 
1110 
1120 
11 30 
1 140 
3000 
3010 
302.0 


TEST “Is? CHR$ (i. 23 > s? ; ? s? " wA IT *ENCOD 1 NS " s ? : ? *'? 

IF LEN<MA3N*)=0 THEM ? "NO.TEXT"#BOSUb biSOfcsBOTO IBB 
S E E D A - K E V A: 3 E E D B=!< E Y B: C 0 D E $ — " “ 

FOR LOOP--1 TO LENOAIN*) 

T$=MAIN*<LQQP.LOOP) 

FOR X — 1 TO 37: IF T*-H$CX.X> THEN Q=X 
NEXT X 

GO SUB 400O s X - C 5 Y-37: GOSL.JB 30000 
IF NOT TEST THEN 0=0-1:IF SKI THEN G«Q+37 
IF TEST THEN 0=0+ZsIF Q>37 THEN 0=0-37 
C0DET (LDGP , L00P) =H$ (Q „ 0 > 

NEXT LOOP:? CHR$(125) 

IF TEST THEN ? :? s? 11 CYPHER * 13: ” ? GOSLJB 3000 
IF NOT TEST THEN ? :? :? "PLAINTEXT A IS:60SUB 3000 
? !? "PRESS? ^ENTER" : s INPUT TX$- 
GOTO 100 

? : ? : ? - CHR$ (34 > t CODE.4- ? CHR$ (34 ) : HA I N$=CODE$ 

? s ? r. ? IGNORE * " s CHR$• (34) 

? :RETURN 



4000 

C—GEEDA-t-BEE 

DB 

401G 

IF 032767 

THEN C=C-32768 

4020 

0=0*2 


4030 

IF 032767 

T [-1 £ ,\l r_; — £ 3 3 7 £ 7 

4©40 

SEE! D A=S El E D B 

;SEEDS=0 

4050 

RETURN ? REH 







KEy'A-7: LEYR=32633: REM 


»0X 8EE D A=KE VA:3EE DB«KE V B 
20010 DIM HAIN$(235>,DODE % C255) 

20020 MAI N$= " ,l s CODES -" 

20030 DIM H$(37) 

20040 H$= ”0123456789 *ABCDEFBhIJKLMNOPQRSTUVWXY i " 
20050 SETCOLOR 4,0,0:SETCOLOR 1,0,15:SETCOLOR 2-0.0 
20060 DIM X % (9> ,, T$ < 9) 

21000 GOTO 100 


The modulo arithmetic routine 


30000 Z=x/Y 
30010 2 = 2 —INT ( 2) 
30020 2 = 2 + 1 / (V •*- 10 > 
30030 Z~INT (Z*V) 
30040 RETURN 


The good bye routine 


31000 


“SO 


L ONg 


END 


ChexSum Tables 


10 


i 14 

J . 0O0 


11 
«♦ , 


1 228 

1005 

— 

X A 

’ ■ 

idol 

I C 1 O 

= 

20 

— 

3645 

1020 


O 1 

•»L J . 

= 

1 436 

1030 

— 

■“ i 

x > . 

- 

434 

1040 

- r . 

, -ji 
JU . *1* 

~ 

7 46 

i C50 

r : 

2. 4 

-■ 

/ 70 

:i 060 

SS ; 

tr . 

y - •— 1 

“ 

*T ** .i Ci 
%_»^0 

1070 

KS 

26 


xJ.£2 1 

i 580 

— 



A 4 . 

1090 


30 

~ 

2: / S '' / 

1 1 00 

ss 

31 

’* 71 * .**"( 


3 i 04 

•i v "‘V 4 

1110 

— 

• 2 * ^2 


16 / 1 

1 1 A.B 

= 

" iTiCr 


... .. .. r 

»T •-' 

1 1 30 

~ 

110 


6 1 6 

1140 

S 3 . 

120 

— 

4B6 i 

3000 

— 

130 

— 

739 

3010 

sr : 

3.40 


:i 497 

3020 

=s 

3 50 

— 

1268 

4000 

ss ; 

J . 6 & 

= : 

795 

40.10 

— 

900 

—■ 

2 4-j< o> 

4020 



■; ?A "V 

-.- 1 »j,$ / 

*1 J m \ *; A' 

4tj30 

-- 

i ; 'X i 

j . •. •.-» 

1 9 Hi 

4040 


Sv:.< y 

1 06 B 

4050 


•1 1 ": /; 

.1, ij** 

615 

~ j 0 0 0 

— 

663 

Ci ,<X! .L 

20000 

—■ 

2320 

1 6&3 

2000 1 

SS: 

793 

1 6 1 

2 m i e 

=S 

So 3 

1 1 69 

2002.0 


336 

1 737 

20030 

— 

41 a 

J. / 4- 9 

20040 

=•. 

2886 

.1 278 

20O50 

sz 

860 

‘531 

20060 

= 

705 

1329 

2 i 00 O 


1 1 2 

i 620 

30000 

— 

“7 ? / 

j i. 0 A 

300 10- 

~ 

7 7 

1 1 2 

30020 

=s 

9 24 

1 422 

3003C 


7 70 

1044 

30040. 

=r 

:«• r* i 

CD 

127 

31000 

ss 

8 7 5 

5j 7 3 

1132 

521 

TOTAL 


72569 
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DUNGEONS 



CLASSIFICATION: Logic 


Move your man round the 
exit. There are three 
Hitting the walls cause 
maze. When you find an 
leve1. 


maze of 
dungeons 


dungeons 
and each 


s you to go back to 
exit, move into it 


trying to find 
one has an 
the start of 
to reach the 


PROGRAMMING SUGGESTIONS 


Increase the number of 
maze which can eat you 


mazes in the game, 
or send you back to 


Put 

the 


objects 

start. 


in 


the 
xi t. 

the 

next 


the 
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Program 


Variables 


LEVEL 

Level you are playing. 

MAXLEVELS 

Maximium number of levels 

T,A,A$,K,N 

Dummy variables 

COV 

Counter for footsteps 

Program 


Structure 


1 - 80 

Intialization 

100 - 150 

Main Loop 

400 - 430 

Crash into wall 

1000 - 1010 

More intialization 

15000 -15110 

Completed maze 

30000 -30362 

Even more initialization 
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Listing 


Intia1ization 

- - 


1 

DIM 

AT(32):? C 

HRT 

■1— 

GOSU 

B 1000.101 


—jr- 
.J» 

GRAPHICS IBs ? 

t ( il 

ft 6s 

9 

POKE 

203,41s PC) 

KE 

10 

restore: 11 s FOR 

T“ 

1 3 

DATA 

184,162,0 

4 , 1 


64 „ 1 

45,2©B 


12 

DATA 

400 * 169,6 

v- : i i 


45 „ 2 

08«20©,j 92 


13 

DATA 

128,20B,2 

32: , 


169, 

78,145,288 


14 

DATA 

280,169,7 

3. , j 


,96 



31 

DATA 

184,173,2 

42, 


40,5 

9 ,201 ,10,2 

40, 

jZ. 

DATA 

201,81,17 

A 1 

-t +. 

- 

<l 4- v 1 vl 

,0,133,284 

, 96 

,_’i ,Ji 

DATA 

208,1,96, 

24, 


3. o 9 » 

284,96,165 

,2© 

34 

DATA 

165,203,4 

I , 1 

V>\»J 

DATA 

184,165,2 


36 

DATA 

169,2.4,13 

“7' *“*• i 

■3' N .C\ I 


j\|T rf 


-*r *"T 
'^1 * 

38 
40 

e.e 
60 
80 
80 


105 
i 18 
120 


15© 


; ? #6 s ? #6: " A A a WA 1 T j 

205.64:POKE 206,156 


■c~ •-*«: 2 4 8 , .j't 0,401 , i .j, ,, 2 


ii -*..0& «■£• 4»j , -- 4 , .1 fij » v. j. >;.• 3 ,, 12r\, j 35 , .16>5 3 204 

LhT A i t6w*0, 1 , 4f..£)4 v £.h , 1 hzi , 205 .i. 03,48 , J. .23 H 205 i 65 n 206 •- i 8 

5,8.133- , zf16 , ,t 46,20? , 288,2 i 4 

Dh i A :!. 84 m 133,286,184.133,205 i 84 v 133,204,184 ;i. 33,282- 1( 9 o 


2 , 20B 

248,2 

DATA 

185 , 0 , 

5 n 0 .1 

33,206 

DA i A 

184,13 

LEVEL 

= 1; hi A X 

B03UB 

1 ©00 

GRAPH T CS 8: 

COU-4 


A=UsR 

(203 3.1 


S «* 5 P* f “ l "“4 P T* f * r pt 


, t/; x . !/t 


Ru =** ^03 i 1 > “ A~U SR (284 88; : I F P E EL K (4037 9 ) 2 >B9 T HEN 6n 3U R 

480 

poke: 483/9„as 

1F P E E. K i 2 8 3) + 2 3 6 +■ P E E K < 2 8 4 > = 337 (J 5 T H c N GO Sl1B 1 5 0 0 0 
CQO-COU—isIF NOT COU THEN COIN2s FOR T«0 TO 38 STEP JO: 
£DUND 2,T, 0,18sNEX'f T:SOUND 2.©.©.0 
GOTO 100 


400 

410 

420 

430 



STEP 5:SOUND 1,T,©„IBs NEXT T:SOUND 1,8,0 


FOR T=0 TO 38 

0 

POKE 754,S s POKE 203,41s POKE 204.80 

4OR 1=0 TO 30:POKE 756,224 s POKE 756,144 s NEXT T 
RETURN 
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More intialization 


1 000 


1 


1020 
1030 
1 © J 


1050 


j RAw 


RESTORE 30000+LEVEL*100;GRAPHICS 20sCOLOR 1r A=USR K 20246 
) 

FOR 7=50 TO 31: READ AT 
FOR N=1 TQ 32 
C-204- 8© 4 T * 512 + (N -1) * 4 

IF NOT (ABC(AT<Nj)-32) THEN FOR A=0 TO 3:FOR TO 3: 

R0KE C+A*12 8+B, 8 9 sNEX T BsNEXT A spL0T N ■+ 2 4.T+8 
NEXT N:NEXT T 

FDR T=0 TO 3?. FOR N«0 TO 3s POKE 2 1 050+N+T* 128,72+N+T*4: N 


EXT Ns NEXT T 
1070 FOR T=© TO 3 
EXT N: NEXT T 
1100 RETURN 
10000 POKE 756., 144 


F 0R N=0 T 0 3 P0 K E 34362 + N+T* 12 8 ,72+ N + T*4: N 


10010 

FOR 

T — 0 TO 1023:POKE 

:i. 0020 

RE c>T 

ORE 10180+(INT(R 


EAD 

A:POKE T,As NEXT 

10021 

FOR 

T-37440 TO 37583 

10100 

DATA 

0,527,213,175,2 


•—,i CL" ITT 
jl. \.J l/ 

655 t’l v /a. -“i-: 

4*. \ta-I ‘.J ^ |7 ,1.. | ■__» |f ■- J . ■ fj ^ 1 

1011 0 

DATA 

0 .. 240,252 254,2 


i<« '-»• W.' t) 

l "V *? T 1 •“C.-K. ••-.il-.- cv 

/ q *— 1 J. ^ * X,. vJ 1J * jil. 

10120 

DATA 

•“ z ~. t-:; ■;> cz. > tz t c: ( ^ 

’ fc - ^ W W 1 H 4m V. * »t -U- i, * vJ 


, 5 70 

, 84,60 

1012:1 

DA r A 

0 , 127 , 85 , 106 , 85 


1 *7£: 

j- i. 

0 , 255 . 35 , i. 70 , 35 , 

10122 

DATA 

G , 255,87,17S , 87 


7 , 1 2 

7 C)t; 1 7p. 1 -it n 

»f J 4j J. / V-'.- L Ii J, / tL 1 4f 

10123 

DATA 

35,570,85 , i 70 . 8! 


'".ti-C. ■-!ev;C.\ -r , 

w * *“ ■- <1 J «r / tf r / » J 




<~T* C-: c. *'7* ix; tn. 

' V . 1 t; .C_ vJ *«) 


”1 CTT'd **'“■ £Jl* C’** r"? *~~7 ■: ”7 ^■ —r j — — v * — - 

1 / J , » / „ J. / A ,, tr> / , j. / J. , 


10130 

10 J. 35 
10140 

i 0 :t 50 
10160 
10170 

3 0180 
10190 


®; 227 - 255.755,255,255,254,254,0,240,252... 231 , 158,63 
" »■*»■•*'9 o 0 ,1 / . 6 *« J. 0-.‘> „ ji’4 + r 1 ^ 6 ,3. 51 , 1 j. 4 

DAT A 0,248,253,255,255,255,127 , :!. 27 

D«T A 252,253,251,251 „249,246,247„231,244,113,130,229„20 
2,21,202,213,4/,78,161,87,171,80,171,83 

DATA 63,191,223,223,159, .11 1 ,239,239,0,143,239.239.240,2 
39.239 „ 239,42,1 49,170,149,42,149,170, j. 49 

DATA 168 , 85 ,1 69 , 85 ,184, 1 25 , J. 35 , .1 7 , 8 . 24 7, 247 , 247.15.747 , 
247,247,240,239,239„239,240,239,239,239 

DATA 42,1 49,170,5.49,42,149, J. 70,149,128,69,169,85 .,168,85 
„169,85,15,247.247,247,15.247,247,247 
DATA 24 ” 24 “ ® ' 126 *< 24 „ 60.102 , I 02 
Li AT A Qj , 24,0 , 0 . 3 0,48„0 



1J000 FOR 7—0*73/6 TO 37567 STEP 8: RESTORE 15100; FOR N=0 TO 3; 

FOR K=G« TO 7 s READ A: POKE T+i< .A: NEXT K« NEXT N 
I 501© FOR K-T TO (T+7 >:POKE K,0;NEX T K:SOUND 0„INT ( RND(i )*255 
)»0,10;NEXT T:SOUND 0,0,0,0 *“ 
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i 5068 


:! 5S2G 

LEv’E; 

15030 

GRAF 

"T —r> 

3.5040 

1 ~ ItJ 

GOSU 

15060 

GRAF 

1507© 

FOR 

1510© 

DATA 

.v4„ 

ii 511© 

DATA 

2000© 

FOR 
EXT ! 

20100 

GOTO 

30100 

DATA 

30102 

DATA 

30104 

DATA 

3© 1 06 

DATA 

30108 

DATA 

30110 

DATA 

301 12 

DATA 

301 1 4 

DATA 

301 16 

DATA 

3© 3. i 8 

DATA 

3012© 

DATA 

30122 

DATA 

30124 

DATA 

30126 

DATA 

30128 

DATA 

3© 130 

DATA 

3© 132 

DATA 

3© 134 

DATA 

30136 

DATA 

30138 

DATA 

30 3 40 

DATA 

38142 

DATA 

30143 

DATA 

38144 

DATA 

30145 

DATA 

30146 

DATA 

30148 

DATA 

30150 

DATA 

30152 

DATA 

30154 

DATA 

38156 

DATA 

30158 

DATA 

30280 

DATA 

32202 

DATA 

38284 

DAT A 

30206 

DATA 

30208 

DATA 

3021© 

DATA 

38212 

DATA 

30214 

DATA 

30216 

DATA 


LE!v J EL. =s rlAXLEVELS THfcN SOTO 
'j.ON 0,5:7 #6? *' *.*.*. *.l.EVEL *='; LEVEL: FO 
0. T , i0 , 10 s NEXT T s SOUND 0,0,0 „ 0 
F ; 0KE 203,41 : POKE 204,80: G0T0 50 


n * * k * 


■ n i 


•<■■<■ R , 


n it » * 


nan 


w « M a 


a a a i< m 


m u m * n U *» ir H •> * « 


* 14 r-- * v « •» n k m m n U 


CUBS 


■ MB » m U u m 


■ MM 


*' » M /» 


tt B B 


■ Mu 


■ MM 
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302 i S 

DATA 

3022® 

DATA 

30222 

DATA 

30224 

DAT A 

7rnoi 

■-.* i U jL. jl Cj 

DATA 

30228 

DATA 

30230 

DATA 

**r pi 

v'»WUi. 6 

DATA 

’“f n-, a 

6026H 

DATA 

**-i- f-y. ♦■* r t 

DATA 

30237 

DATA 

30238 

DATA 

30240 

DATA 

30242 

DATA 

30243 

DATA 

30244 

DATA 

30246 

DATA 

30248 

DATA 

30250 

DATA 

30252 

DATA 

30254 

DATA 

30256 

DATA 

30258 

DATA 

30300 

DATA 

30302 

DATA 

30304 

DATA 

30306 

DA 1 A 

30308 

DATA 

30310 

DATA 

~T»* ry, "?■ .| 

■J'tuiO J, 

DATA 

30314 

DATA 

30316 

DATA 

30318 

DATA 

30320 

DATA 

30322 

DATA 

30324 

DAT A 

30326 

DATA 

30328 

DATA 

6kJ660 

DATA 

—r t-v. »r -r /*>i 

DATA 

60664- 

DATA 

30336 

DATA 

30338 

DATA 

606-4-6 

DATA 

30342 

DATA 

30344 

DATA 

30346 

DATA 

30748 

DATA 

30350 

DATA 

30352 

DATA 

30354 

DATA 

30356 

DATA 

“TiT 1 

o i;j o JO 

DATA 

30360 

DATA 

30362 

DATA 
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ChexSum Tables 


1 

= 

2150 

18190 

ss 

965 

30224 

= 1460 

jL. 


115 

1 5000 

as 

3412 

30226 

~ 1488 

.^1 

— 

2208 

15010 


2678 

30228 

= ; 1432 

9 

=*■ 

1484 

1502G 

=n 

1173 

38230 

* 1488 

10 


1570 

15030 

= 

3051 

30232 

* 1432 

i 1 

— 

3124 

15040 

sz 

1182 

30234 

= 1582 

12 

~ 

7700 
x, C‘ 

15860 

a: 

1483 

30236 

1404 

13 

— 

3340 

15070 

= 

718 

30237 

« 1516 

14 

zc 

2/67 

15100 

= 

3126 

30238 

~ 1446 

31 


5147 

53 i 2 

15110 

= 

2461 

30240 

~~ 14 Ct 2 


= 

20000 

i= 

2673 

30242 

= 1474 

O 


4963 

20100 

£Z 

115 

30243 

- 1460 

34 

— 

2032 

30100 


1628 

38244 

« j. 41S 

35 

= 

2479 

30102 

— 

1628 

30246 

= 1474 

j>6 


4 / 6 / 

30104 


1362 

30248 

= 1446 

•7 "j< 

-J' / 

— 

^Q7"i 

w ■■ x_ 

38106 

rz; 

1488 

30250 

“ 1502 


— 

6 59 "7 

*fc- W 7 f 

30108 

sa 

1418 

30252 

= 1334 

40 


691 

30118 

an 

1 502 

38254 

- 1628 

50 


1 2 V 

38 j 12 

= 

1484 

38256 

= 1628 

60 

=: 

11:! 1 6 

301 14 

3= 

1544 

38258 

— 1628 

80 

= 

*k.» o 

30116 

sz: 

1390 

30300 

- 1628 

100 

r= 

i DC, *< 

X / w* .1. 

30118 

— 

1502 

30382 

~ 1620 

105 

— 

h 9;* 

30120 

— 

1 484 

30304 

— .! ■.':* H ci 

1 10 

— 

•f ^ < *"i 

± JL. 1 xL 

30122 


1 55 B 

3 0 3 8 6 

— 14 6 8 

120 

= 

2805 

38124 

•— 

1362 

30388 

= : 1 418 

150 


1 12 

3G126 


1538 

3031 0 

” 1 *188 

400 

— 

1 540 

30128 

« 

1 390 

30312 

an j.404 

410 

— 

1007 

381 30 

zr 

1 302 

30314 

-- 1446 

420 

=; 

1437 

30132 

zz: 

1 432 

3 0 51 6 

-• 1446 

430 

s= 

58 

58134 

-- 

1474 

303 1 B 

^ 1 1 d 

1000 

ZT 1 

:i 481 

381 36 


1488 

30320 

~ 1390 

1010 


579 

301 38 

— 

14 1S 

-?■ ry 

= 1460 

1020 

— 

441 

30140 

zz: 

J. 5 :i 6 

•ii'u.i /4 

- J. 390 

1030 


1267 

30142 

zz: 

>. 484 

30326 

~ 1474 

1040 


3868 

30 X 43 

— 

1460 

30328 

nr. 1474 

1 050 


334 

38144 

ZZr 

1582 

30330 

= 1460 

1 060 


2669 

38145 

=i 

1 460 

"TfTi’T *7' '3 

1.474 

1070 

-■ 

2739 

38146 

— 

1460 

30334 

~ 1418 

1100 

~ 

58 

30148 

= 

1432 

30336 

== 1502 

1 0000 


3 9 1 

38150 

sa 

1558 

30338 

“ 147 4 

.i. 0 0 * 1 0 


1 /D 9 

"rpi < «sr'\! 

■*»,' »J 4, U J,. 

an 

1 334 

30340 

- 1 432 

1 0020 


2 -* q> 

30154 

— 

1 628 

30342 

=, j 446 

1002 i 


16 6 6 

38156 


1628 

30344 

« 1488 

1 0 1 00 

zrz 

^1* 

38158 


1628 

30346 

- 1432 

1 0 1 1 0 

— 

"1- 

■H- / ,3;.. 

38200 

— 

*i i.. “? O 
• L *_2 tL 

30348 

= 1530 

10120 

-• 

3139 

38202 

-• 

I. 6 2 B 

30350 

=• 1 41 £i 

10121 

JTZ 

4124 

30204 


1348 

30352 

= 1468 

10122 

tzr 

4347 

38206 

= 

1 582 

3Q354 

« 1488 

10123 

5js 

'•“r .*'t . »2T 

c*ki i 5 

302:08 


1484 

30356 

= 1390 

10130 


4352 

38218 

— 

1516 

30358 

~ 1628 

1 yj x w 5 

= 

.1608 

•21/jL X x.. 

zz: 

1376 

38360 

“ 1628 

10140 

z z : 

4552 

-.:>0214 

as 

1558 

38362 

= 1628 

10150 

— 

4632 

30216 

as 

1376 



10160 


4624 

382 IB 

zz: 

1558 



10170 

— 

4526 

38220 

— 

1 362 

TOTAL 

- 29887 

10180 

= 

1 3*67 

30222 

rr 

1488 
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LETRMAZE 



CLASSIFICATION: Skill 

The object is to collect the letters in the maze in the 
shortest possible time and in the same order as shown at the 
bottom right of the screen. A letter is collected by touching 
it with your man. Joystick 2 moves your man (solid circle) 
vertically and horizontally. When the fire button is held down 
movement will be two spaces at once instead of one. Movement 
'wraps around' horizontaly. 

PROGRAMMING SUGGESTIONS 

Increase the size of the maze and give a number of levels to 
the game. 
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Program 

Variables 


A() 


Holds offsets 

AM 


=2 if fire pressed else =1 

CODE$ 


Holds code to be done 

D() 


Direction of line movement 

MAX 


Constant for random selection 

OK 


Flag 

OLDPH 


Old horizontal position 

OLDPV 


Old vertical position 

PH 


Man's horizontal position 

PLACE 


Points to next code letter to be obtained 

POS 


Screen address 

PV 


Man's vertical position 

Q 


Local 

R 


Where to peek for a random number 

SCREEN 


Address of first byte of video RAM 

T 


Local 

TIME 


Holds score 

TN 


Constant =39 

X 


Local 

x$ 


Local string 

Y 


Local 

Z 


Local 

Program 

Structure 


10 


Set margins and goto initialize 

100 - 

200 

Draw the maze 

300 - 

350 

Read the joystick routine 

1000 - 

1090 

Main loop 

2000 - 

2040 

Hit something 

3000 - 

3070 

Wrong thing 

4000 - 

4030 

Got all the pieces 

20000 - 21000 

Initialize subroutine 
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Listing 


1B POKE 7 82.8:POKE 83,39: GOTO 20000 



100 

101 

102 

110 

111 

112 

120 


170 


175 

172 

200 


P OSITION 0*1:2=A(1):? Bt(Z,Z+TN):Z = Z+D<1)sIF Z >FE THEN 
Z — Z — F E 

IF 7< 1 THEN Z = ?.+FE 

A < i 3 —i. s IF PEEK <R ) >MAX THEN D ( 1) =-D ( 1 ) 

POSITION 0.3:Z = A(2) :? Bt<Z,Z+TN):Z®Z+D(2) ; IF 
Z — Z—Ft. 

IF Z<1 THEN Z=Z+FE 

A(2)= Z: IF PEEK(R) >M AX THEM D(2)--D(2) 

r Do] ! I ON 0,5: 7 .=A (3) : ? BT ( Z , 2 + TN} : 2 — Z+ D (3 3 : IF 
Z«Z“FE 


/- >PE THEN 


Z >Ft THEN 


1 1 

J. J, 

IF Z< 1 

i HE.N Z — Z+FE 


A (3) =2 : 

IF PEEK< R) >HAX 

130 

PCSITION 0,7:Z=A<4):? 


Z“Z~-FE 


131 

IF Z < 1 

! HEN 5 2 = 7 +FE 

i 32 

A ( 4) - Z s 

IF PEEK(R)>KIAX 

5 40 

PUS IT 10N O .. 9: Z -A ( 5 > : ? 


Z=Z-FE 


141 

IF /.< 1 

THEN Z--7+FE 

142 

A < 5 > = Z ■ 

IF PEEK. (R) >MAX 

150 

PuSITI0 

N 0 . 1 i « 2 = A ( o ) ; 


/ ™ 2. *"F F. 


1 51 

T F Z 3. 

THEN 7-2+FE 

1 52 

A, 8.) —■ / : 

l'F PEEK (R) >MAX 

1 80 

P OS JTION 0.13:Z=Ai7): 


Z-2-FE 


161 

I F 2 < 1 

THEN Z = 2 h- F E 

1 62 

A(73«Z: 

IF PEEK(R) >MAX 


THEN D(3)——D(3) 

Bit- \Z . Z+TiT : Z= : Z+D (4) s I F 


'T HEN D ( 4 > =—D i 4) 

. Z,? + T N) : Z — Z -i- D < 5) ; I c 


Z>FE THEN 


>FE: THEN 


! HEN D { 5 5 ( 5 j 


f-V JL- 1 ■' 

, Z-i-T'N) 

!’ i —.£. + .1.3 \ O .) 'j j F L F 

1 Hi 7 N 

T HEN 

D t 6 ? = ” 

•D (6) 


B-T < 2 

,Z+TN) 

:Z = Z+D* 7) ; IF 7 >FE 

T HE N 

THEM 

r> < 7) ----- 

D (7 > 



POSITION 0.15:Z=A(8) :? Bt <Z,Z+TN):Z = Z + D(B) : IF Z >FF 
Z=Z-FE 

IF ZCl THEN Z-2.+FE 

A < 8) ~ Z.: IF PEEK < R) >MA X THEN D { 8) = -D < 8) 

return 


1 KEN 


Read the joystick routine 


300 

7=STICK 

(0) : AM=I: 

IF NOT STRIS(0) TH 

EM AM 

3 3.0 

IF Z = 14 

AND PV>0 

TF1EN PV=FV—AM 


320 

IF 2=13 

AND PV< 2 

1 T HEM F‘v=PV+AM 


330 

IF 2=11 

THEM PH= 

PH-AM:IF PH<0 THEN 

ph»tn 

340 

IF 2=7 

\ HEN F'H—F‘ 

H+AM:IF PH>TM THEN 

PH=0 

350 

RETURN 
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1000 GQSUB 100 s POSIT IGW 2.23:? TIME; 

1010 G03LIB 300 

1020 PQS*PH+40*RV+3CREEN 

1030 OLDPOS«QLDPH+40*OLDPV4.SCREEN 

1040 Q-PEEK(POS):IF 0 THEN 2000 

1050 POKE QLDPGS.0 

1060 POKE POS„84 

1070 OLDPh=PHsOLDPV=PV 

1090 GOTO 1000 


TIWE«TIME+l 



2000 
20 3.0 
2020 
2030 
2040 


IP 05=34 THEN 1050 

iP Aol UjGljLI % PL Al»E « PLAL-c :.) ) • : 'G+ - 32 I HEN 

POSITION PLACE,22:? CHR$(0+32); 
PLACE=PLACE+lsIF PLACE-i1 THEN 4000 
GOTO 1050 


3000 



3000 

3010 

3020 

3030 

3O40 

3050 

3060 




FOR T—1 TO 2S: ? : WE.>. T T 

•*. *■- 4 u xt. j*.. 4 k. iti. jt, I'-iOl- t. jj,, i ?■- UR *” ir... I.; jj, s. ] ! ; \ 

F OR T -1 T0 12 : F 0R X «:« TO 1 F . N E X T X : ? : WE X i : 

F O R T = 1 T O 0 0 &: N E X f T 
POSITION 5,23 

7 “ c m* 1 ■: 

INPUT >' Jt- 
RLJN 
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Initialize subroutine 



2 EI7.00 
20© I © 
2002© 
20030 
20040 
2005© 
20060 
20070 
20080 
2009© 

20 i 00 
20 : 1 . I© 

20 i 2© 
2©:i30 
2014© 
2015© 
201*0 
201 7© 
20180 
2019© 
20200 
2022© 
20230 
20240 
20250 
20260 
20270 
2028© 
20290 
20300 
20310 
20320 
20340 
20350 
2036© 
2037© 


D1M B-$- <88 ) „ X$ (9) : R=5377©s MAX~240: IN 

GRAPH ICS 2-4* 16 

POSITION 7,6 

? #6; ‘'NAIT' 1 

FOR X=1 TO 40 

B-T (X « X > -CHR'T * i60 i 

N fc. >; 1 X 

FOR X”41 TO 44 
BS ( X „ X ) -- !i 
NEXT X 

FDR X—45 TO SB 
B* ( X . X > «CHR$ (1 60) 

NEXT X 

DIM A <8 > . D < 8) 

F O R X = j. 7 C ’ B 

L .f, N i 1. Rjsjij i © .< V > 4- j 

A < X > = 2 

4 s5 ! N1 \RhiD \ 0) + £ « — \ 

IF 2=0 THEN 2O170 
D(X) 

NE X T X 

DIM CODE $ < 10-) j SOREEN—400001 
FOR X — 1 TO i© 

71 -1 NT (RND >; 0) *2 6 ) +65 
IF LEN (C0DEli : > = ; 0 7HEN 20300 
OK= 1 

F OR T — j T 0 l EM ( C O Oh T i 
IF AS;..- S tT 4 ' i 1 ’ } ) H*"jV l.iK "-‘O 

NEXT T: IF NOT OK I HEN 207- 40 
CODES ( X X ) = ; CHRS i 2. > 

NEXT X 

GRAPHICS ©sPOKE 7 32. 253 [. 00 6 HP i :/-o 
FOR T-J U: UFKi ’ cnot'.s • 

V — IN I r;N v i 0 « + 7 ■' *2 
3 NT (is NO ! - V:j } +40 

! j K -- V •*- O i.-i 4- x. 4- j”". li' (->' 4 i' v 


=39s F E=48 


Put character to screen 



:036O 

1 \ i : - 

30390 

POPE: 

5 04 A V:' 

ImF X T 

3042© 

r t... A O 

.7'‘4 5© 

P' 1..- W’ 

‘0440 

■ v? i 

3045© 

PH—2 

; O 4 c> © 

OL.DF! 

30470 

TIME 

1 1 DO© 

GOTO 


• sr.ir..K \ ur ; . i ■. >w i n*2‘\ 20330 

: T. .. WRl i fi v !:-- 4. f V '••» : —“r 
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ChexSum Tables 


10 

— 

906 

1040 

= 

912 

20140 

— 

414 

100 

— 


1050 

— 

227 

20150 

— 

906 

101 

= 

843 

1060 


421 

20160 

« 

627 

102 

sr 

1939 

1070 


817 

20170 

— 

852 

110 

— 

3402 

1090 


127 

20180 

St 

427 

111 

— 

843 

2000 

2S 

620 

20190 

= 

630 

112 

— 

1942 

2010 

= 

1288 

20200 

— 

180 

120 

~ 

3406 

2020 

=: 

930 

20220 


757 

121 

= 

843 

2030 


1041 

20230 

as 

422 

122 

iS 

1945 

2040 

ZZ 

207 

20240 

= 

987 

130 

= 

3410 

3000 

rs 

738 

20250 

— 

503 

131 

— 

343 

3010 

se 

1782 

20260 

— 

351 

132 

= 

1948 

3020 


1452 

20270 

= 

641 

140 

= 

3414 

3030 

— 

626 

20280 

5= 

127S 

141 

— 

843 

3040 

jk? 

281 

20290 

= 

592 

142 

= 

1951 

3050 

=- 

6208 

20300 

— 

1017 

150 


3424 

3060 

sr; 

174 

20310 

= 

180 

151 

— 

F543 

3070 

-- 

59 

20320 


666 

152 

— 

1954 

4000 

= 

738 

20340 

— 

641 

160 

— 

3428 

4010 

SS; 

2022 

20350 

— 

880 

161 

— 

843 

4020 

5K 

1367 

20360 

= 

818 

162 


1 957 

4030 

— 

191 

20370 

— 

966 

170 

— 

3432 

20000 

2= 

2766 

20380 

— 

588 

171 

= 

843 

20010 

— 

282 

20390 

= 

1155 

i. / X- 

— 

1960 

20020 

*“ 

254 

20410 


179 

200 

= 

c=- r-'i 

JO 

20030 

= 

er 

vJ 

20420 

= 

347 

300 

— 

1520 

20040 


470 

20430 

— 

298 

310 


1122 

20050 


1049 

20440 

— 

1 1 /4 

320 

— 

1216 

20060 

—- 

180 

20450 

-- 

763 

330 

=S 

1567 

20070 


538 

20460 

— 

817 

340 

— 

1551 

20080 


757 

20470 

-- 

274 

350 

= 

58 

20090 


180 

21000 

= 

•I ~~7 

J. X.. f 

1000 


1317 

20100 

— 

610 




1010 

— 

1 16 

20110 

2S 

1049 




1020 

sz 

929 

20120 


180 

TOTAL 

~ 

11 31 

1030 

— 

943 

20130 


695 
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BREAKIN 



CLASSIFICATION: Reflex 

You are inside a four-walled container with a series of brick 
walls, a moving ball and a bat. The ball is bouncing off the 

bricks and you must use your bat to stop it getting past you 

and hitting the wall. You are given nine balls for each game 
and you lose a ball each time one gets past your bat. The bat 

can be moved left and right using the joystick. There are 

three different bricks walls and two bat sizes. The smaller 
the bat, the more points scored. 

PROGRAMMING SUGGESTIONS 

Add more brick walls to the game and make them more exotic. 
Vary the speed that the ball travels round the court. 
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Program 

Variables 


SC 

Start of 

KE 

Joystick 

BS 

Batsize 

GS 

Game size 

BV 

Vertical 

BH 

Horizonta 

BY 

Vertical 

BX 

Horizonta 

BA 

Screen po 

DX 

Horizonta 

DY 

Vertical 


screen 
port value 

postion of bat 
1 position of bat 
position of ball 
1 position of ball 
sition of ball 
1 movement value of ball 
movement value of ball 


Program 




Structure 



10 - 

55 

Intialization 


60 - 

150 

Move the bat across the screen 

160 - 

260 

Check for boundary hit 

270 - 

310 

Check for missed 

ball 

320 - 

810 

Select the game 


830 - 

890 

Print game one on 

the screen 

900 - 

980 

Print game two on 

the screen 

990 - 

1080 

Print game three 

on the screen 

1090 - 

1150 

End the game 
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Listing 


I 

10 

II 
12 

13 

14 

15 

16 
17 

19 

20 

21 
30 
40 
50 
55 
60 
61 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
161 
170 
180 
190 
200 
210 
220 
230 
240 


250 


260 

270 

280 

290 

300 

310 

■„>20 

330 

340 

600 


SETCOLOR 2,7,4 
REM BREAKIN 
CLR 

DIM DN$(63),BM$(1),BS$<1),A$(1),SPCf(40) 

SP=0:REM SET DEFINITION OF SPACE 

POKE 82,0:BE=40000:REM START OF SCREEN 

WI=82:REM SET BAT CHARACTER 

WA=211:REM SET BARRIER CHARACTER 

Cl=84:REM SET BALL CHARACTER 

POKE 752,0 

DN$ ( 1,6 •_>) = ■4k 4* - 4k 4*' 4 r 4k 4^ ^ 4*- 4"' 4 - 4 r 4k 4k 4k 4k 4k 4>" 4^ 4k 4k 4k 4k 4k 4k 4k 4k 4k -j- 


FOR 1 = 1 TO 40: SPC# (I , I) = *' ->" s NEXT I 
SC=40000s NB=9:GOTO 330 
GOTO 20 


SOUND 0,60,10,8:SOUND 0,60,10,0 
RETURN 

REM MOVE BAT 


REM ======== 

KE = STICK <1):IF KE=15 THEN A=64 
IF KE=7 THEN A=12 
IF KE=11 THEN A=36 
IF A=64 THEN 170 

PD=BE+(BV*40)+BH:FOR I=PO TO PO-+-BS-1: POKE 1,0: NEXT I 
BH=BH+<<A=12)-(A=36))*2 
IF BH<8 THEN BH=8 
IF BH>38—BS THEN BH=38-BS 

PO=BE+<BV*40)+BH:FOR I=PO TO F'O+BS-l:POKE I,82:NEXT I 
REM CHECK BOUNDARY HIT 
REM ^ = = r= = = = = == = = = :== = =: = =: = 


BX=BX+DX:BY=BY+DY:FF=21 

IF BX<9 THEN DX=-DX:SOSUB 50:GOTD 230 

IF BX>36 THEN DX=-DX:GOSUB 50:GOTO 230 

IF BYOl THEN BY= 1 : DY=—DY: GOSUB 50: GOTO 230 

IF BY>=22 THEN BY=22:DY=-DY:GOSUB 50 

REM CHECK BAT/BRICK HIT & PRINT BALL 


POKE BA,SP:BA=SC+BY*40+BX 

IF PEEK(BA)=WI THEN BA=B1:DY=-DY:FF=-133:GOSUB 50:GOTO 


60 

IF PEEK(BA)=WA THEN DY=-DY:FF=35sGOSUB 50:GS=GS+1 


PO 


.“•v 


IT 


ION 0,0:PRINT "4 M ;GS 


POKE BA,Cl 

REM CHECK FOR MISSED BALL 
IF GM=1 AND BY=22 AND DY=-1 
R I NT n 4-4k4k4r4-4k4k4-4r“; " * “ ; NB 


THEN NB=NB-1:POSITION 0,0: P 


IF GM< >1 AND BY=11 THEN NB=NB~ 1: POS ITI ON 0,0: PRINT " 4=-4k4k 
4«- 4k 4*- 4- 4-- 4k “ ; A " ; NB 
IF NBC 1 THEN 1090 

IF INT <6S/ 100) -<GS/ 100)00 THEN 60 

ON GM GOSUB 830,900,990 

REM 


PRINT CHR$(125); 

PRINT CHR$ (125) ; : PRINT “ 4 . 4k 4 . + 4^4-+• 4k 4 ^ ^ ^ ^ 
*.R ^A *1^ I 
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610 

620 

630 

640 

650 

660 

661 

662 

663 

665 

670 

675 

680 

690 

700 

710 

720 

721 

~7 ^ ET 
/ xlvj 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 


FOR 1 = 1 TO 200: NEXT 1: FF=21: PR I NT n 4- + " 

GOSIJB 50 

PRINT 11 A A ^ ^ ^ A A ■ for 

T=1 TO 90:N EXT T 

PRINT " -T*^***. * * ^SELECT *GAME ^NUMBER < 1-3) " FOR T=1 
TO 90 : NEXT T 

6M=PEEK(754):IF GM<26 THEN PRINT :PRINT " 4 ";: GOTO 620 
IF GM>31 THEN PRINT :PRINT "4";:GOTO 620 

IF GM=31 THEN GM=lsGOTQ 670 

IF GM=30 THEN GM=2:60TQ 670 

IF GM=26 THEN GM=3:GOTO 670 

GOTO 640 

PRINT " ; GM: PRINT : FF=35 

POKE 754,0 
GOSUB 50 

PRINT "a*.***,*.*.*. ^ HTaf % aims «eai; 3r»n a ff f-Kjf f-| ,( ; FDR T= 1 

TO 90:NEXT 

PRINT "4^*^^^SELECT^BAT^SIZE(2-3> " ; : FOR T=1 
ITO 90: NEXT T 

BS=PEEK (754) : IF BS<26 THEN PRINT :PRINT 11 ♦" 5 : GOTO 680 
IF BS >30 THEN PRINT : PR I NT " 4";:GOTO 680 
IF BS-30 THEN BS=2sG0T0 730 
IF BS=26 THEN BS=3:GQT0 730 
GOTO 700 

POKE 754,0:PRINT " A ";BS 
NB=9:BS-100*(4-BS) 

FOR T=1 TO 500:NEXT T 
PRINT CHR£(125)PRINT 
MjXzSmS&KZ 
FOR 1 = 1 TO 22: PRINT " * ^ ^ A 

* ^ "■ ^ *®=* A ^ Ji. Jl A. A ^ A 4. ^ u. a. ^ 

-.***-*->* ***■": NEXT I 

PRIN T " ^ a. * 

mm "; jposition 0,0 

POSITION 0,0: PRINT " SCORE" : PR I NT ""sGS:PRINT " - 4 -HIGH" : PR 
INT "SCORE”:PRINT " A " 5 HS:PRINT " 4 BALLS" 

PRINT "LEFT" : PRINT "^";NB: PRINT " 4-GAME" : PR I NT "NUMBER": 
PRINT M ^";GM 

PRINT "4BAT":PRINT "SIZE":PRINT " ^;BS 
ON GM GOTO 830,900,990 
REM GAME 1 

POSITION 0,0:PRINT " 44 " 

FOR J = i TO 4: PRINT + + + 

: NEXT 3 

IF GS>0 THEN GS=G3+1 
IF SW>0 THEN 60 

SW= 1: BV=21: BH= 17: BV= 15: BX = 18: BA=SC+BY*40+BX : DX=-1: DY=-1 
GOTO 110 ,u ^ 1 

REM GAME2 

POSITION 0,0sF’RINT "44" 

FOR J = 1 TO 3: PRINT ' + + + + + + ++ m ”ZZZ-Z:Z'ZZ —«- , « 
NEXT J 

PRINT "444444444444" 

FOR J=1 TO 3: PRINT " 4-*^ 4 4 -> 4 4 ;--“ “ ~ " ~ "*• «- = ~ - - 

: NEXT 3 

IF GS>0 THEN GS=GS+1 
IF SW>0 THEN 60 
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970 SW— 1: BV=13: Bhi=20: BY=10; BX=21: BA=SC+BY*40+BX: DX = I - DY=- 1 

980 GOTO 110 

990 REM GAME 3 

1000 POSITION 0,0:PRINT + M 

1010 FOR 1=0 TO 8: PRINT " FOR 0=9-1 TO 1 STEP 

-1 : PRINT "ZZ" ;sNEXT 0 

1020 PRINT SPC$ (1 , 1*2+8) FOR 0 = 9-1 TO 1 STEP -1: PRINT 
NEXT J:PRINT :NEXT I:PRINT 
1030 FOR 1=0 TO S: PRINT " -*■ -*■*•-*" ■ : FOR 0 = 1 

TO I+i:PRINT NEXT J 

1040 PRINT SF'Cf-< 1 , < (8-I) *2)+8) ; : FOR J = 1 TO I + l: PRINT ;:NE 

XT 0:PRINT :NEXT I:POSITION 0,0 
1050 IF GS>0 THEN GS=GS+1 
1060 IF SW>0 THEN 60 

1070 SW=1:BV=13:BH=16:BY=9:BX=24:BA=SC+BY*40+BX:DX = 1: DY=~1 
1080 GOTO 110 

1090 REM END OF GAME 

1100 POSITION 0,0: PRINT "4 444444^44^44 44'-*^-*-**^h*-*-*-» 

^ANOTHER A GA mE <Y/N>'■; * * * 

1110 INPUT M 

1120 IF A$= ,, N , ‘ THEN PRINT CHR*<125)siEND 
1130 IF A4K >”Y" THEN 1110 
1140 IF GS>HS THEN HS=GS 
1150 SW=0:GOTO 600 
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ChexSum Tables 


1 

sr 

'y r~- 

•*> V J 

290 

SS 

11 

=s 

40 

300 

= 

•f r *~\ 

— 

•I q*tc:* 

31© 

_ 

x xl. 


JL 0*-.» J 


13 

— 

2052 

320 

— 

14 

=s 

1926 

34© 

= 

15 

= 

1820 

600 

= 

16 

= 

2019 

610 

a 

17 

— 

1893 

620 

as 

19 

— 

•*1C *TT 

630 

as 

20 

— 

2648 

640 

as 

21 

— 

1436 

650 

as 

30 

3s 

914 

660 

= 

40 


142 

661 

ss 

50 


985 

662 

as 

erer; 

S3 

58 

663 

ss 

70 


1344 

665 

— 

80 

—• 

680 

670 

S’- 

90 

S3. 

726 

675 

ss 

100 

ss 

602 

680 

ss 

110 

as. 

f*. "T "v 

/ 

690 

ss 

120 

2= 

1443 

700 

ss 

130 

3=1 

676 

710 

ss 

140 

— 

1145 

720 

=r. 

150 


2581 

721 

= 

170 

= 

1635 

*»y p*! 
f Amt ♦. 

ss 

180 

as 

1216 

725 

as 

190 

Si 

1262 

730 

ss 

200 

=a 

1621 

740 

ss 

210 

= 

1476 

750 

ss 

230 

as 

1341 

760 

ss 

240 

=3 

2462 

770 

ss 

250 

“ 

2820 

780 

ss 

260 


360 

790 

ss 

280 

ss 

2400 

800 

ss 


1 987 

810 

ss 

1020 

546 

820 

ss 

721 

1127 

840 

IS 

268 

“7 r~\ 

f x. 

850 

ss 

5505 

■h. 1 lJ O 

860 

ss 

809 

1689 

870 

ss 

436 

1185 

880 

ss 

4055 

192 

890 

ss 

128 

5639 

910 

as 

268 

2749 

920 

ss 

5504 

1424 

930 

ss 

429 

745 

940 

ss 

5504 

996 

95B 

ss 

809 

996 

960 

ss 

436 

987 

970 

— 

3998 

181 

980 

ss 

12S 

771 

1000 

ss 

26S 

255 

1010 

ss 

2193 

192 

1020 

ss 

2740 

5073 

1030 

ss 

1998 

2567 

1040 

ss 

2962 

1502 

1050 

—: 

809 

831 

1060 

ss 

436 

y 1 u 

1070 

EE 

3984 

906 

1080 

ss 

128 

1 18 

1 100 

ss 

2269 

551 

1110 

ss 

155 

1129 

1120 

ss 

761 

631 

1 130 

ss 

452 

6151 

1140 

— 

825 

2344 

5650 

'7' ~7 i O 

jL. J A 4- 

1150 


434 

1962 

TOTAL 

~ 

1529: 
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RACER 



CLASSIFICATION: Skill 

The object of this game is to get as far around the course as 
possible. Steer the car left and right with the joystick. To 
make the car go faster push the joystick forward, to go slower 
press the joystick back. 

PROGRAMMING SUGGESTIONS 

Add a speedometer to the car so you can tell just how fast the 
car is travelling. Also add other cars to the race to compete 
against you. 
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Program 

Variables 


A 

CAR$ 

CARPOS 

DIFFICULTY 

F 

LEFTLIMIT 

R 

RIGHTLIMIT 

ROAD$ 

ROADPOS 

SCORE 

SPEED 

VOL 

X 

Y 


Local 
Holds car 

Horizontal position of car 

Difficulty level 

Flag 

Left limit of road 

=53770 Where to peek for a random number 0 
Right limit of road 
Holds road 

Horizontal position of road 

Holds score 

Speed of movement 

Volume of sound 

Local 

Local 


Program 

Structure 

10 Jump to initialization 

300 - 610 Main loop 

1000 - 1060 Game End 

2000 - 2080 Game start 

20000 - 21220 Initialize game 


255 
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Listing 


10 SOTO 20000 


Main loop 


300 

320 

330 

350 


360 

430 

440 

450 

550 

560 

570 

590 


600 

610 


1000 

1010 

1020 

1030 

1040 

1050 

1060 


SCORE=SCORE+1:X=RND(0)*DIFFICULTY:IF PEEK<R>>127 THEN X 
——X 


ROADPOS—ROADF'OS+X : IF ROADPOS>RIGHTLI lil T THEN ROADPQS=RI 
GHTLIMIT 

IF ROADPOSCLEFTLIMIT THEN RGADPQS^LEFTLIHIT 
POSITION 1,0:? ROADS(ROADPOS,R0ADP0S+37):A-USR(ADR(CODE 
$) ) 

IF PEEK(R) >217 THEN POKE 40041 +1NT CRND(0)*36) ,128 
X=STICK<1):IF (X=ll OR X = 10 OR X~9) AND CARP0S>3 THEN C 


ARPOS=CARF'OS-l 
IF \X—7 OR X=6 OR X~5) 

+ 1 


AND CARPOSC 37 THEN CARF'OS=CARPQS 


IF PEEK(40920+CARPOS) THEN 10©0 
POSITION CARF'OS,23: ? CARS; 

SOUND 0,SPEED+40,2,8 

IF (X=14 OR X=10 OR X=6) AND SPEED>0 THEN S 

IF < X = 13 OR X=9 OR X~5> AND 3PEED<2l5 THEN 

1 

IF SPEED—0 THEN 300 

FOR X—1 TO SPEED STEP 4:NEXT X:GOTO 300 


PEED-SPEED—1 
SPEED—SPEED+ 


Game End 


V0L-15:F0R Y-0 TO 4s FOR X = 0 TO 32: POSITION CARF'OS, 23 
? CHR# ( X > r, : SOUND 0,20 , © , VOL s VOL=VOL-0.09: NEXT X : NE X T Y 
FOR X-0 TO 25:? :NEXT X 

? " SCORE® * " ; SCORE: ? : ? : ? " AT ^LEVEL A ; DIFFICULTY: ? : 
? : ? : ? "PRESS *START ^FOR * ANOTHER ^GAME" 

IF PEEK(5327 9)< >6 THEN 1050 
GOTO 21000 


Game start 


2000 


2010 

2020 

2030 

2040 

2050 

2060 


POKE 752.1:? CHR$(125):FOR X-l TO 30:POSITION 
D*<16,53) ; : A=USR (ADR (CODE#) ) : NEXT X 
CARF'0S=22: POSITION CARP0S,23:? CAR$;:SQUND 0, 
POSITION 17,18:? " ®ST ARTIS"; 

GOSUB 21200:IF NOT STRIG(l) THEN 2070 
POSITION 17,18:? '' ■EaZga Mr s 
GOSUB 21200:IF NOT STRIG<1) THEN 2070 
GOTO 202© 


1,0:? RDA 
240,2,8 
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M NJ M t O 


2070 POSITION 17,18:? n * A ^ A ^ ; s POSITION 18,19:7 " * A ^ ^ 

U . . 

* » 

POSITION CARPOS ,23:? "*“: 

2080 GOTO 300 


Initialize game 


20000 POKE 82,1:? CHR$ < 125) : DIM ROAD* (120) , CAR# (1) 
20010 ROAD*-'*! 


20020 CAR*=CHR* (123) 

20030 LEFTLIMIT=4 
20040 RIGHTLIMIT-30 
20050 DIM CODE*(58) 

20060 DATA 104,169,176,133,203,169,159,133,204,169,216,133,20 
5,169,159,133,206,162,22,160 

20061 DATA 40,177,203,145,205,136,16,249,165,203,56,233,40,13 
3,203,165,204,233,0 

20062 DATA 133,204,165,205,56,233,40,133,205,165,206,233,0,13 
3,206,202,16,218,96 

0080 FOR X = 1 TO 58:READ Y:CODE*(X,X)=CHR* CY ):NEXT X 
0090 SETCOLOR 4,8,6 
0100 SETCOLOR 2,4,15 
1000 POKE 752,0:? :? :? 


21010 

21020 

21021 

21022 

21030 

21040 

21050 

21060 

21100 

21110 

21120 

21130 

21140 

21150 

21160 


?:?:?:? "SELECT ^DIFFICULTY *LEVEL * ( *1-5; INPUT DIFF 
ICULTY 

IF DIFFICULTY AND DIFFICULTY>5 THEN ? :? "PLEASE .." 

:GOTO 21010 

? : ? " STEER *CAR ^ WI TH A JOYSTICK *.2 " 

? : ? “FORWARD ^FASTER * ^.BACK ^SLOWER" : ? 

? :? "PRESS *FIRE ^.BUTTON A TG ^START ^CAR ^MOVING" : ? :? 

ROADPOS=16 
SPEED=215 
R«53770 

POSITION 14,23 
o *< | 


GOSUB 21200:IF F THEN 2000 
POSITION 14,23 
? "BPRESS *START n ? 

GOSUB 21200:IF F THEN 2000 
GOTO 21100 


21200 F—0:FOR X«0 TO 100 
21210 IF PEEK(53279)=6 THEN F=1 
21220 NEXT X:RETURN 
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ChexSum Tables 


10 

n 

114 

2000 

300 

= 

2154 

2010 

320 

= 

1307 

2020 

330 

— 

734 

2030 

350 

= 

1780 

2040 

360 

* 

1447 

2050 

430 

— 

2425 

2060 

440 

— 

1863 

2070 

450 

= 

623 

2080 

550 

sz 

576 

20000 

560 

= 

625 

20010 

570 

= 

1776 

20020 

590 


1853 

20030 

600 

*= 

326 

20040 

610 

= 

894 

20050 

1000 


1557 

20060 

1010 

=s 

1843 

20061 

1020 

ss 

632 

20062 

1030 

— 

2001 

20080 

1040 

— 

2241 

20090 

1050 

ss 

773 

20100 

1060 

= 

130 

21000 


— 

7 ^5*7 

21010 

=: 

2516 

= 

1499 

21020 

— 

1553 

— 

1143 

21021 

— 

1917 

= 

751 

21022 

-s 

2364 


1783 

21030 

SB 

3045 

= 

751 

21040 

SB 

353 

ss 

175 

21050 

SS 

363 

“ 

1969 

21060 

= 

504 

* 

114 

21100 

— 

296 

— 

1520 

21110 

SB 

2505 

= 

10262 

21120 

SB 

467 

— 

540 

21130 

SB 

296 


337 

21140 

SB 

1097 

— 

380 

21150 

SS 

467 

= 

448 

21160 

SB 

131 

ss 

4020 

21200 

ss 

634 

= 

3547 

21210 

SS 

959 


3545 

21220 

SB 

226 


1921 




= 

358 




ss 

367 

TOTAL 

ss 

92784 

ss 

6730 
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ROCKS 



CLASSIFICATION: Evasion 

Move your ship round the room without crashing into the nasty 
monsters bouncing off the walls. Every time you hit one the 
computer will print BANG. Try to live as long as possible 

PROGRAMMING SUGGESTIONS 

Put obstacles in the path of you and the monsters. Increase 
the speed of the game. 
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Program 

Variables 

I General purpose 


XI 

X 

co-ordinate 

of 

you 


Y1 

Y 

co-ordinate 

of 

you 


X2 

X 

co-ordinate 

of 

rock 

one 

Y2 

Y 

co-ordinate 

of 

rock 

one 

X3 

X 

co-ordinate 

of 

rock 

two 

Y3 

Y 

co-ordinate 

of 

rock 

two 

X4 

X 

co-ordinate 

of 

rock 

three 

Y4 

Y 

co-ordinate 

of 

rock 

three 


Program 

Structure 


2 - 85 Initialize the program 

100 - 130 Data for players 

200 - 630 Set up sprites 

1000 - 1040 Main loop 
2000 — 2205 Move your player 
3000 - 5999 Move the rocks 

7000 - 8000 Do collision testing 

9000 — 9090 Data for machine language program 



86 



Listing 


'> 

CLR 


6 

FOR I 

=30720 TO 30799:READ A:POKE 

7 

FOR I 

=33792 TO 33792+1023:POKE I 

9 

FOR I 

=28672 TO 29050:READ A:POKE 

10 

POKE 

106,128 

20 

PM=PEEK <106)sPMBA5E=PM*256 

30 

GRAPHICS 1 

40 

POKE 

559,62 

50 

POKE 

i*—» ^ <**-v 

*J ‘- 1 4ll / / , 

60 

POKE 

54279,PM 

70 

POKE 

tv* vnc*/ o 

vJ 4. U O n jL 

80 

POKE 

704,77:POKE 705,77:POKE 706 

85 

POKE 

707,77 

100 

DATA 

56,56,16,124,186,56,40,108, 

1 10 

DATA 

0 

255,255,24,24,24,24,255,255 

120 

DATA 

0 

255,255,24,24,24,24,255,255 

130 

DATA 

0 

255,255,24,24,24,24,255,255 

200 

POKE 

53256,1 

210 

POKE 

53257,1 

220 

POKE 

53258,1 

230 

POKE 

53259,1 


500 

510 

520 


530 


540 

550 


560 


wJ t 

570 

600 

610 

620 

630 

1000 

1010 

1020 

1030 

1035 

1037 

1040 

2000 

2010 

2020 

2030 

2040 

2100 

2105 

2200 

2205 

3000 

3005 


X1-140:Y1=100:REM SET PLAYER COOR 
X 2= I NT < RND (0) * 150) : Y2= I NT (RND (0 > * 150) 
XP2=4:YP2—4 

X3— I NT (RND (0) * 150) : Y3= I NT < RIMD (1) * 150) 

XP3—4:YP3=4 

X4=INT(RND< 0)*150 > :Y4=1NT <RNDU > *150) 
XF‘4~4: YP4—4 

A=USR(28672,X1,Y1,X2,Y2,X 3,Y3,X4,Y4) 

FOR 1—32128 TO 32128+19:POKE I,3:NEXT I 

FOR I=32128+380 TO 32128+380+19:POKE 1,3: 

FOR 1=32128 TO 32128+380 STEP 20:POKE 1,3 

FOR 1=32128+19 TO 32128+380 STEP 20:POKE 

GOSUB 2000:REM MOVE YOU 

GOSUB 3000:REM MOVE 1 

GOSUB 4000:REM MOVE 2 

GOSUB 5000:REM MOVE 3 

A=USR<28672,X1,Y1,X2,Y2,X3,Y3,X4,Y4) 

GOSUB 7000 
GOTO 1000 

REM MOVE YOUR PLAYER 
POKE 53278,0;A=STICK<1) 

IF A=11 THEN GOSUB 2100 
IF A=7 THEN GOSUB 2200 
RETURN 

IF XI<5 THEN RETURN 
X1=X1-4:RETURN 
IF XI>140 THEN RETURN 
X1=X1+4:RETURN 
REM MOVE ROCK ONE 
IF X2>140 THEN XP2--4 


I 

I 


, 0 ,©, 0 , 0 , 0 , 0,0 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 


NEXT I 
:NEXT I 
I,3:NEXT I 
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3010 

3015 

3020 

3025 

4000 

4005 

4010 

4015 

4020 

4025 

4999 

5000 
5005 
5010 
5015 
5020 
5025 
5999 
7000 
7010 
7020 
8000 
8010 

8020 

90S© 

9005 

9010 

9015 

9020 

9025 

9030 

9035 

9040 

9045 

9050 

9055 

9060 

9065 

9070 

9075 


IF X2<5 THEN XP2=4 
IF Y2>155 THEN YP2=~4 
IF Y2<5 THEN YP2=^ 

X2=X2+XP2:Y2*Y2+YP2sRETURN 
REM MOVE ROCK TWO 
IF X3>140 THEN XP3=-4 
IF X3< 5 THEN XP3*4 
IF Y3>155 THEN YF3*~4 
IF Y3< 5 THEN YP3=4 
X3=X3+XP3s Y3«Y3+YP3:RETURN 
RETURN 

REM MOVE ROCK THREE 

IF X4>140 THEN XP4--4 

IF X4<5 THEN XP4=4 

IF Y4>155 THEN YP4=-4 

IF Y4<5 THEN YP4«4 

X4=X4+XP4sY4=Y4+YP4sRETURN 

RETURN 

REM 

IF PEEK(53260)<>0 THEN SOSUB 8000 
RETURN 

POSITI ON 0,0: PR I NT #6; " *• s PR I NT #6; " # A ^ ^ ^ ^BANG " 

FOR 1-1 TO 200:NEXT I:POSITION 0,1:PRINT 

POKE 53278,0s RETURN 

DA1A 104,104,104,141,61,113,104,104,141,60,113,104,104, 
141,75,113,104,104,141,74 

BATA 113,104,104,141,89,113,104,104,141,88,113,104,104 
141,103,113,104,104,141,102 

DATA 113,32,45,112,96,120,32,8,113,160,14,162,0,1 89 57 ; 
113,149,176,232,136 ’ 

DATA 208,247,32,170,112,160,14,162,0,181,176,157,53,333 
,232,136,208,247,160,14 

DATA 162,0,189,67,113,149,176,232,136,208,247,32,170,11 
2,160,14,162,0,181,176 

DATA 157,67,113,232,136,208,247,160,14,162,0,189,81,113 
,149,176,232,136,208,247 

DATA 32,170,112,160,14,162,0,181,176,157,81,113,232,136 
,208,247,160,14,162,0 

DATA 189,95,113,149,176,232,136,208,247,32,170,112,160, 
14,162,0,181,176,157,95 

DATA 113,232,136,208,247,32,22,113,88,96,165,183,197,18 
2,240,68,160,0,165,184 

DATA 24,105,46,145,176,169,32,24,101,162,168,166,185,16 
9,0,145,178,200,202,16 

DATA 250,169,32,24,101,183,141,116,113,162,0,142,109.11 
3,166,185,172,109,113,177 

DATA 180,238, 1 09,113,172,116,113,145,178,238,136,113,20 
2,16,237,165,183,133,182,165 

DATA 184,133,189,96,165,184,197,189,208,182,96,177. 112 
113,41,15,170,189,36,113 ' 

DATA 238,112,113,96,160,14,162,0,1B1,176,157,117,113,23 
2,136,208,247,96,160,14 

DATA 162,0,189,117,113,149,176,232,136,208,247,96,1,2,3 
,4,5,10,7,8 ’ • 

DATA 7,8,11,4,2,4,1,4,8,0,208,0,132,0,120,0,0,0,8,0 
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9080 

9085 

9090 


)ATA 16,0,0,1,208,0,133,20,120 
)ATA 134,40,120,0,0,0,8,0,16,0 
,0 


0.0 


ChexSum Tables 


r? 

sr 

40 

620 

6 

= 

1 356 

630 

7 

= 

1421 

1000 

9 

=5 

1627 

1010 

10 

— 

277 

1020 

20 

= 

1 124 

1030 

30 


144 

1035 

40 

J5T 

420 

1037 

50 

Hr* 

406 

1040 

60 

= 

473 

2010 

70 


372 

2020 

30 

=- 

1 169* 

2030 

85 

— 

361 

2040 

100 

= 

2555 

2100 

110 

= 

2600 

2105 

120 


2600 

2200 

130 

— 

2600 

2205 

200 

= 

371 

^.005 

210 

— 

372 

M W 

3010 

220 

~ 

373 

3015 

230 

= 

374 

3020 

500 


2022 

3025 

510 

sc 

1696 

4005 

520 

= 

704 

40 10 

530 

= 

1769 

4015 

540 

ss 

712 

4020 

550 

= 

1777 

4025 

560 

— 

720 

4999 

570 

— 

2321 

5005 

600 

♦ 

1205 

5010 

610 

~~ 

1731 

5015 


1464 

5020 

=z 

667 

1620 

5025 

=5 

1270 

918 

5999 

— 

58 

728 

7010 

— 

756 

745 

7020 

— 

58 

762 

3000 

— 

1160 

2321 

3010 

= 

1723 

225 

8020 

— 

420 

127 

9000 

s= 

3800 

887 

9005 

— 

3900 

463 

9010 

ss 

3548 

454 

9015 

~r 

3747 

58 

9020 


3711 

357 

9025 

— 

3824 

581 

9030 

— 

3638 

419 

9035 

~s 

3778 

580 

9040 

= 

3730 

7 66 

9045 

s= 

3719 

649 

9050 

= 

3845 

789 

9055 

— 

4013 

651 

9060 

re 

3852 

1 *"> / "7 

l »C« 

9065 

se¬ 

3760 

774 

907© 

re; 

3163 

657 

9075 

re- 

2355 

797 

908® 

r: 

2537 

659 

9085 

— 


1 246 

9090 

re 

V 1 Q j 

58 




782 




665 

TOTAL 

re 

13078 


805 
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SNOWBALL 



CLASSIFICATION; Evasion 

Use joystick to move the man left and right. Shoot snowballs 
before they land by pressing the fire button. 

PROGRAMMING SUGGESTIONS 

Make the snowballs travel down the screen in random paths 
instead of straigh lines. 
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Program 

Variables 


A 

BALL$ 

BALLPOS 

CODE$ 

DIR 

FIREFLAG 

GROUP 

HITS 

L 

LEVEL 

MISSILE$ 

MISSX 

MISSY 

PLAYERPOS 

SCORE 

SCREEN 

SPACE$ 

T 

X 


Local to set up USR routine 
Code for snowballs 
Ball position 

Holds machine code screen scroll routine 
Direction group moves 
=1 if missile fired 

Base position for snowballs 

Counts hits 

Local 

Difficulty level 
String for missile 
Missile X co-ordinate 
Missile Y co-ordinate 
Position of player 
Score 

Address of first byte of video RAM 
40 spaces 
Loca 1 
Local 


Program 

Structure 


1 - 

3 

Set the colors 

10 


Switch off cursor and jump to initialize 

100 - 

280 

Main loop 

1000 - 

1060 

The hit routine 

2000 - 

2060 

The die routine 

3000 


Overrun by a snowball 

3010 - 

3030 

Start the game 

20000 - 

21010 

Initialize the game 
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Listing 


l 


10 


100 
102 
103 
110 

130 

140 

150 


200 

210 

220 

230 

240 

250 

260 

270 

280 


SETCOLOR 1.0,15 
SETCOLOR 4,0,9 
SETCOLOR 2,0,0 
POKE 752,i:POKE 


82,0:GOTO 20000 



POSITION 0,0:? SPACE*? 

GROUF-GROUP+DIR:IF' GRQUP<0 THEN 6ROUP=0sDIR--DIR 
IF GROUP>29 THEN GR0UP=29:DIR--DIR 

IF LEVEL>RND<0)*20 THEN POSITION RND(0)*10+6ROUP,0s? BA 
LL* : ; : HITS—HITS—l: IF HITSC0 THEN 3000 

X-STICK < 1 ) : IF X = 11 AND PLAYERPOSM THEN F'LAYERPQS—PLAYE 
PROS-1 

IF X~7 AND PLAYERPOS<38 THEN PLAYERPQS-PLAYERPOS+1 
IF ( NOT STRIG(D) AND ( NOT FI REFLAG) THEN FIREFL AG«1 • 
NISSX-F'LAYERPOS: !il BSY—22 


Put missile if required 


IF FIREFLAG THEN POKE SCREEN+MISSX+40*MISSY 0 
A=USR < ADR (CODE*) ) 

IF PEEK(SCREEN+920+PLAYERPOS) THEN 2000 
POKE SCREEN+920+PLAYERPQS,123 

IF FIREFLAG AND PEEK(SCREEN+MISSX+<40*MISSY')) THEN 60SU 
B 1000 

IF r I REFLAG THEN MI SSY'-MI SSY- 1; IF MISSY--! THEN FIREFLA 
G—0 

IF FIREFLAG AND PEEK t SCR’EEM+M ISSX+ (40*MISSY) ) THEN GOSU 
B 1000 

IF FIREFLAG THEN POKE SCREEN+MISSX+40*MISSY 80 
GOTO 100 


The hit routine 


1000 L=SCREEN-H y l I SSX+40*M ISSY: FOR X=0 TO ^2 
1020 POKE L , X. 

1040 SOUND 0,255-7*X,10,8 

1050 NEXT X:SOUND 0,0,0.0:POKE L,0 

1060 HITS=HITS+1: SCOF;E=SCORE+1 : F IREFLAG=0: RETURN 
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The die routine 


2000 

2010 

2020 

2030 

2040 

2050 

2060 


FOR X=0 TO 255 s SOUND 0,X,10,8:SOUND 1,X +128,10,8s SOUND 
2,X+2,10,8:SOUND 3,X+3,10,8:NEXT X 

FOR X*255 TO 0 STEP -6:SOUND 0,X,10,B:SOUND 1,X+1.10,8: 
NEXT X 

FOR X=0 TO 3:SOUND X,0,0,0:NEXT X 

FOR X-l5 TO 0 STEP -1:SOUND 0,50,0,XsFOR Y«1 TO 4s NEXT 


Ys NEXT X 

FOR X*0 TO 23:7 sNEXT X 

7 : 7 : 7 "A ^SNOWBALL *.HAS ^LANDED A ON * YOUR *HEAD 
YOUR ^BRAIN ^FREEZES" : FOR X=1 TO 1000: NEXT X 
7 :7 :7 "SCORE ;SCORE:7 :7 "LEVELLEVEL:7 


" - 6 


:? "AND*. 
i GOTO 3 


010 


Overrun by a snowball 


3000 


3010 

3020 

3030 


FOR X*1 TO 30:7 :NEXT X:7 CHR*<125>: 
BALLS *HAVE ^.LANDED" : 7 :? :? "SCORE*" 
L*"; LEVEL 

7 : 7 "PRESS *FIRE *.FGR ANOTHER *.GAME" 

IF STRIG U) THEN 3020 

RUN 


; SCORE 


O ■ O 


"60^ SNOW 
"AT *.LEVE 


Initialize the game 


20000 DIM CODE*(58),BALL*(1),SPACE*(40).MISSILES<1) 

20011 BALLF‘OS*20:BALL*=CHRS(20):MISSILE*— CHR*(16) 

20012 SPACES* ''**.**.*.*.*. a.^.^aa^***.*.*.*.*.*.^*.*.**** 


20013 SCREEN*40000 

20014 DIR*0.25 


20015 SCORE*© 

20016 HITS*60 
20030 REM 

20040 7 CHRS(125) 


20041 7 :? :? :7 "LEVEL INPUT LEVEL: 7 
20050 7 "USE * JOYSTICK .*.2" : 7 :7 :7 "PRESS* 

20060 DATA 104,169,176,133,203,169,159,1 Z 
5,169,159,133,206,162,22,160 

20061 DATA 40,177.203,145,205,136,16,249, 
3,203,165,204,233,0 

20062 DATA 133,204,165,205,56,233,40,133, 


* 

FIRE *TO *3TART *SAME" 
3,204,169,216,133,20 

165, 206 , 56,236, 40, 13 

205,165,206,233,0,13 


3,206,202,16,218,96 

20070 FOR X*1 TO 58:READ T:CODE*(X,X)=CHR*(T):NEXT X 

21000 IF STRIG <1) THEN 21000 

21001 PLAYERPOS*20:FIREFLAG*© 

21002 7 CHR* <125) 


21003 IF NOT STRIG <1) THEN 21003 
21010 GOTO 100 
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ChexSum Tables 


i 

— 

298 

o 

S= 

289 

*1 

— 

214 

10 

= 

809 

100 

= 

326 

102 

= 

1550 

103 

= 

1178 

110 

= 

2481 

130 

— 

1704 

140 

— 

1176 

150 

— 

1959 

200 

— 

qcrn 
t UZ 

210 

= 

736 

220 

— 

807 

230 

=s 

654 

240 

= 

1302 

250 

— 

1393 

260 

= 

1302 

270 


1144 


280 

2a 

112 

1000 

= 

1344 

1020 


347 

1.040 


779 

1050 


664 

1060 

— 

1469 

2000 


3558 

2010 

=: 

2082 

2020 

az 

898 

2030 

=r 

2001 

2040 

— 

640 

2050 

— 

5158 

2060 

= 

2006 

3000 

= 

5400 

3010 

=s 

2063 

3020 

= 

480 

3038 

= 

59 

20000 

=: 

1520 

20011 

— 

1507 


20012 

— 

1585 

20013 


344 

20014 

22 

365 

20015 

— 

070 
«*L / C> 

20016 

=E 

428 

20040 


343 

20041 


1 103 

20050 

= 

3057 

20060 


4020 

20061 

— 

3547 

20062 

=z 

3545 

20070 

— 

1 955 

21000 

— 

419 

21001 

= 

662 

21002 

— 

343 

21003 

na 

462 

21010 

= 

112 

TOTAL 


7492S 
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CLASSIFICATION: Invader/Evasion 


You are a wild animal being pursued by a hunter. You move 
around the maze using the joystick on port one. No matter 
where you are in the maze, the hunter will know where you are 
and seek you out. As you move through the maze you eat 
munchies. When you have eaten all the munchies, you win. 
There are four levels. 


PROGRAMMING SUGGESTIONS 


Add a facility at the hardest level of 
player can 'teleport' to another part 
make it so that he cannot control his 


the game so 
of the board, 
destination. 


that the 
However 
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Program 

Variables 


JL 

SP 

DO 

Cl 

R1 

R 

C 

A 

CN 


Screen value of block character 
Screen value of blank character 
Screen value of power pill 
Column position of hunter 
Row position of hunter 
Row position of animal 
Column position of animal 
Joystick direction 
Number of power pills eaten 


Program 

Structure 

15 - 40 

50 - 200 

210 - 560 

570 - 870 


Initialization 

Draw borders, maze and power pills 

Move your piece up, down, left and right 

You ran into the hunter; you won the game 
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Listing 


SETCOLOR 2,1,3:POKE 752,1 


Initialization 


15 



jiL. ■_* 


24 




26 

27 

30 

40 


CLP :DIM A*<4),B*<1),C*<3),E*<3>,CC*(40>,RR*<24> 
,TAB*(40),F*(32) 

DIM D*(30> 

PRINT CHR* < 125) ; 

POKE 82,0 

DR* (1)="-*“: JL_=128:REM SET BLOCK CHARACTER 
SP=0:REM SET ASCII VALUE OF SPACE CHARACTER 
DO=S4:REM ASCII VALUE OF POWER PILL 
FOR 1=1 TO 40:TAB*(1,1)=DR*:NEXT I 
YO=10:REM ASCII VALUE OF YOUR PLAYER 
1*10=56: REM ASCII VALUE OF MONSTER 
GOSUB 710 
GOSUB 850 


, DR*(1) 


Draw borders, maze and 
power pills 


50 
60 
70 
80 
90 
100 
1 10 
120 

130 

140 

150 


160 

170 

180 

190 

200 


210 

220 

230 


PRINT CHR* C125); 
SC=40000:CO=0:BE=SC+207 


A* (1,2)=" HHT : B* (1,1)=" 
E* (1,3) =" A *•" 


C* <1,2 >=A*:C*(3,3)=B* 


FOR 1 = 1 TO 40:CC*(I „ I> = " ■*" :NEXT I 
FOR 1 = 1 TO 24: ER* (I , I ) = " 4 . : NEXT I 
FOR I=SC TO SC+39sPOKE 1,128:POKE 
FOR I=SC TO SC+999 STEP 40:POKE I, 
T I 


I+-920,128: NEXT I 
128: POKE I•+•39,128: NEX 


POSITION 0,0:PRINT TAB*(1,18);"HUNTER"; 

FOR 1=1 TO 25 STEP 3:F*(I,I+2)=E*:NEXT I 

FDR 1=1 TO 30 STEP 3:D*<I,I+2)=C*:NEXT I:PRINT :PRINT : 
PRINT :PRINT :PRINT 

FOR 1=1 TO 5:PRINT TAB*(1,7);D*:PRINT TAB*(1,7);D*:PRIN 
T TAB* <1,7);F*:NEXT I 

PRINT TAB*<1,7);D*:PRINT TAB*(1,7);D* 

R=2:C=0:POKE SC,128 


PO=BE+(R*40)+CSPOKE PO,YO 

C1=26:R1=16:P1=BE+(R1*40) +C1:VE=PEEK(PI):POKE P1,MO 


Move your piece up, down, 
left and right 


A=STICK(1):IF A=14 THEN GOSUB 370 
IF A=13 THEN GOSUB 420 
IF A=11 THEN GOSUB 470 
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240 

250 

260 

270 

280 

290 

300 

310 


330 


340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

4S0 

490 

500 

510 

520 

530 


540 

550 

560 


IF A=7 THEN GOSUB 520 
GOSLIB 290 

IF CN*45 THEN GOSUB 640:GOTO 10 
POSITION 16,3: PRINT " EYi SEESMi " l SI 
GOTO 210 

IF SWOAW THEN SW=SW+1 : RETURN 
SW=0 


R 

H 


PC=P1:IF C1<C THEN C2-C1:C1=C1+1:P1=BE+<R1*40>+C1:IF PE 
EK(PI)=JL THEN C1=C2:P1=PC 

IF C1>C THEN C2=C1:C1=C1~1:P1=BE+ (Rl*40)+01:IF PEEK(Pi) 
=JL THEN C1-C2: F'l-PC 

IF R1 < R THEN R2=R1: Rl=Rl + i : F'1=BE+ (F<1*40) +C1: IF PEEK (PI) 
=JL THEN Rl=R2sPl=PC- 

IF R1>R THEN R2*R1:R1=R1-1sP1=BE+<R1*40)+C1: IF PEEK tPI) 
=JL THEN Rl=R2sPl«PC 


POKE PC,VEsVE=PEEK(PI) 
POKE PI,MO:RETURN 
IF R=0 THEN RETURN 


IF VE«Y0 THEN GOSUB 600:GOTO 10 


T1=P0:R=R-1sPO«BE+<R*40)+C:IF PEEK(F'0)=JL THEN P0=T1:R= 
R+l:RETURN 


IF PEEK(PO)=13 THEN GOSUB 570 
IF PEEK <PD)-DO THEN S1=S1 +1:CN=CN+1 
POKE T1,SP:POKE PO,YO:RETURN 
IF R=16 THEN RETURN 

Tl=FO:R=R+lsPO=BE+<R*40>+C:IF PEEK(PO)=JL THEN P0=T1:R= 
R-1:RETURN 


IF PEEK(PO)=D0 THEN S1=S1+1:CN=CN+1 
IF PEEK(PO)=M0 THEN GOSUB 570 
POKE T1,SP:POKE PO,YO:RETURN 
IF C=0 THEN RETURN 

T1-PO: C»C—1 : F'0-BE+ (R*40) +C: IF PEEK(PO)*JL THEN OC+lsPO 
*TIs RETURN 

IF PEEK(PO)= D0 THEN CN=CN+1:S1=S1+1 
IF PEEK(PO)—MO THEN GOSUB 570 
POKE T1,SP:POKE PO,YO:RETURN 
IF C-2B THEN RETURN 

T1 =P0: C=C+1: F’0=BE+ (R*40) +C: IF PEEK (PO) = JL THEN C-C-3 : PO 
— 7 1:RETURN 


IF PEEK(PO)=DQ THEN CN=CN+1:SI=81+1 
IF PEEK (F’0) =M0 THEN GOSUB 570 
POKE T1,SP:POKE PO,YO:RETURN 


You ran into the hunter; 
you won the game 


570 

580 

590 

600 


610 

620 

630 

640 

650 


PR I NT 
R ! ! ! " 
PRINT 
PRINT 
PRINT 
TER! ! 
PRINT 
I NT 


2HR* (125) ; s PR I NT " YOU a RAN ^STRA IGHT * INTQ 


r 

T 


PR I NT : PR I NT T AB* (1,13);'* YOU * ATE ^ " ; ON 
PRINT :GOSUB 680:GOTO 10 
HR* (125) ; s PRINT 11 * A A YOU *WERE ^CAPTURED 
! !":PRINT :PR INT 

AB*(1,10) 5 "YOU A ATE *";CN; " *POWER *PILLS" 


GOSUB 680 
RETURN 

PRINT C.HR*(125); 

PRINT CHR*(125);TAB*(1,13) 


"CONGRATULATIONS" 


THE *HUNTE 


BY *THE A HUN 
PRINT :PR 
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660 PRINT SPRINT SPRINT SPRINT TAB$ (1,5);" YOU ^HAVE ^COMPLETE 
D^LEVEL:";TY 

670 PRINT SPRINT :GDSUB 680:RETURN 

680 PRINT TAB$ (1,8) ; "PRESS *.FIRE ^.BUTTON A TO ^CONTINUE" ; : FDR 1 = 

1 TO 20: A-STRl'G < i ) : NEXT I 
690 A=STRIG(1):IF A=1 THEN 690 

700 RETURN 

710 PRINT CHR$<125);:PRINT TAB$(1,16);"HUNTER“ 

720 PRINT SPRINT SPRINT “MOVE ^AROUND ^THE ^.SCREEN ^FOR ^AS ^.LONG 
a AS" :PRINT 

730 PR I NT " POSSIBLE ITHDUT A BEING ^.DESTROYED A BY ^THE '*: PR I NT 

740 PRINT "HUNTER. ^.YOU A GET ^.POINTS *.FOR ^EATING ^THE" : PRINT 
750 PRINT "POWER A P ILLS. *WHEN * ALL * ARE A.GONE ^YOU *GET" : PRINT 
760 PRINT " ANOTHER ^GAME, A.HOVE ^YOUR ^MAN ^WITH A.THE" : PRINT 

770 PRINT "JOYSTICK"SPRINT 

780 PRINT SPRINT 

830 GOSUB 680 

840 RETURN 

850 PRINT CHR* (125) 5 SPRINT "DIFFICULTY ^LEVEL A (1-4) "5 • 

860 INPUT A$s IF A$< 1 T’ OR A$>"4" THEN 860 . . . " 

870 TY=VAL(A*):AW=4-TY:RETURN 


ChexSum Tables 


1 

~ 

709 

240 

— 

482 

560 

ZX 

821 

15 

= 

3374 

250 

= 

259 

570 

zx 

2875 

16 

— 

408 

260 


737 

580 

xz 

1435 

20 

* 

356 

270 

— 

1752 

590 

xz 

tx t 
\J J* Z. 

21 

S= 

^ 

280 

sz 

129 

600 

xz 1 

„ •**■/-*'n c 

■2* a! O 

nn 

ST 

2413 

290 

= 

1035 

610 

* zx 

2390 


— 

2783 

380 

— 

non 

620 

* rr 

247 

24 

— 

2388 

310 

= 

4542 

630 

zx 

58 

25 

— 

1534 

320 

SB 

4063 

640 

xz 

356 

26 

— 

2369 

330 

= 

4067 

650 

zx 

2026 

27 

— 

2160 

340 

= 

4069 

660 

~ 

2739 

30 

SB 

136 

350 

= 

1703 

670 

xz 

457 

40 

SB 

201 

360 

5= 

434 

680 

xz 

407 1 

50 

~ 

356 

370 

— 

305 

690 

=■ 

1128 

60 

= 

1229 

380 


3875 

700 

zx 

58 

70 

S= 

3146 

390 

= 

744 

710 

zx 

1440 

80 

= 

674 

400 

S= 

1689 

720 

xz 

2872 

90 


1448 

410 

= 

821 

730 

zx 

2971 

100 

SB 

1419 

420 

BS 

391 

740 

zx 

2764 

110 

— 

1825 

430 

— 

3875 

750 

xz 

2776 

120 


2138 

440 

— 

1689 

760 

xz 

2658 

130 

=b 

1225 

450 

sb 

784 

770 

zx 

772 

140 

— 

1761 

460 


821 

780 

zx 

1 15 

150 

— 

2347 

470 

=B 

306 

B30 

rr_ 

247 

160 

— 

2879 

480 

~ 

3887 

840 

zx 

58 

170 


1387 

490 

— 

1689 

850 

xz 

1933 

180 

= 

1028 

500 

= 

784 

860 

xz 

949 

190 

— 

1439 

510 

=5 

821 

870 

xz 

1250 

200 

= 

2966 

520 

SB 

410 




210 

SB 

1 154 

530 

= 

3887 




220 

SB 

493 

540 

B= 

1689 

TOTAL 

zx 

144648 

230 

— 

571 

550 

=S 

784 
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TAKEAWAY 



CLASSIFICATION: Logic 

You and the computer take turns at removing gold pieces 
chest. The player with no pieces to remove loses his 
The game is self prompting. Note: The game can't lose 
this to show your friends how 'smart' your computer is. 

PROGRAMMING SUGGESTIONS 

Music for introduction page. More ancient sounding 
etc. 


f rom a 
head. 
. Use 


insu 11 s 
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Program 

Variables 

CHEAT 

FLAG 

GOLD 

R 

R$ 

TAKE 

X,Y,Z 

Program 

Structure 

10 

20 - 130 

1000 - 1060 
1070 - 1130 

3000 - 3040 

5000 - 5050 

6000 - 7040 

8000 

9000 - 9060 


Counts number of times player attempts to cheat 
Flag 

Number of gold pieces remaining 
Local 

Local string 

Number of pieced taken by player 
Used in z=x mod y routine 


Initialize the game 
Introductory text 
Playersturn 
Machine’s turn 
X mod Y routine 
Cheat routine 
Game end 

You have attempted to cheat three times 
Insult routine 
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Listing 



10 

20 

30 

40 

50 

60 

70 

90 

90 

100 
1 10 

120 

130 


? CHR$<125)s:DIM R$(20):CHEAT=0:FLAG-0 
? "All .kneel A the A King A will *speak. "s? 

" * *30 .VAGABOND .YOU .HAVE .TRIED .TO" 

? "STEAL .MV .GOLD. " 

? : ? " VERY .WELL .. . . . NOW * WE. .SHALL. .PLAY" 

7 "A *SA M E. . . . . T H E *. 0 U T C Q M E . O F . W HI C H 11 
? " W I Ll. * .DETERM I WE . YOU .FATE_" 

7 " IN a THE * CHE ST .BEFORE .YOU .ARE .THE " : ? " 10© .GOLD .PIECES . 
THAI . YOU .D ESI RE" 

? s 7 "WE .SHALL. .TAKE .TURNS *A1 .REMOVING" 

"FROM . i .T0 *1@ .PIECES. " 

7 " - IF * YDU *CAN .TAKE .THE .LAST .PIECE" : ? "THEN .YOU .WILL BE 
.FREE. TO .LEAVE" " 

■’ " WITH . f HE .GOLD. " : ? s? "BUT. . .IF .I .TAKE .THE .LAST .PIECE 
” = 7 "1 .SHALL. .LEAVE .WITH .YOUR .HEAD ! " 

: ? " AS . I .AM .7 HE .KING . I .SHALL .GO .F1RST " : “ " I .TAKE .1 L F 
AVINB.99" ' 


Player turn 


100© 
1020 
1025 
1030 
1040 
1050 
1060 
1070 
10Q0 
1090 
1100 
1 1 10 
1 120 
1 130 


60LD«99 

IF CHEAT-3 THEN 8000 

GQSUB 9000: :? "How .many .wi 11 .you .take" INPUT TAKE:? 

IF TAKE .--GOLD 1 HEN GOSUB 5000: GOTO 1020 
IF TAKE>10 THEN GOSUB 5000:GOTO 10^0 
GOLD-GOLD—TAKE 

? "You. .have .taken ; TAKE; " .1 eavi nq ; GOLD: ? 

:• "We .wi 1 I .take ." ; 

X-GOLD:Y-l1:GOSUB 3000 
? 2 

GOLD-GOLD-Z 

? "Which .leaves." ; GOLD 
IF GOLD—0 THEN 6000 
? :? ;GOTO 1020 


X mod Y routine 


3000 Z = X/Y 
3010 Z=Z-INT(Z) 
3020 Z=Z+i/<Y*10) 

3030 Z—INT(Z*Y) 
3040 RETURN 
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5000 

5010 

5020 

5030 

5040 

5050 


£>000 

6010 

6020 

6030 

o040 

6050 

606 © 


7000 

7010 

7020 

7030 

7040 


8000 


9000 

9010 

9020 

9030 


Cheat routine 


CHEAT=CHEAT+1:? :? :? :R=INT(RND(0)*4):ON R GOTO 5020,5 
030,5040,5050 

? "THOU *CHEAT. . . ^TAKE ^CARE ! ! f " : RETURN 
? "BE ^THOLI ^BLIND *0R ^FOOLISH" : RETURN 
? " HAVE *THY ITS ^FLED ^THEE" : RETURN 

? "THOU ^CONSPIRE ^TO ^DEFRAUD J1E. . ":? " THEE A SON * OF a A ^CEPH 
ALOPOD.":RETURN 

? "GUARD aTHV ^HONOUR *THOU ^VARLET- " : RETURN 


Game end 


? s? s? “WHICH ^MEANS ^THAT^I *HAVE*WON. . . " 

? : ? s? “OFF^WITH^HIS .HEAD 1 ! i ! " 

? " Are * there ^any *.ot her A theives" 

? "wi shi nq *to *pl ay A the ^Ki nqs *qame" : ? s? " Y ^OR *N" : INPUT 
R* 

IF R$=“N M OR R$="n" THEN 7000 
IF R$—" Y" OR RT="y" THEN RUN 
GOSUB 5030:? :GOTO 6020 


Final message 


? :? :? "It A i5 A wel 1 A t.hat A you A have*.declined M :? "to A play * 
the *Kinq." 

? "As^a^paiace^quard^I A will *tel 1 A you":? "that * the *Ki nq * 
NEVER closes. " 

? :? "The *Kinq *can t^lose.“ 

? : ? : ? "FAEEWELi_" 

END 


You have attempted to 
cheat three times 


? s? s? " YOU *HAVE ^ANGERED ^ME ^WITH *YOUR" : ? "FOOLISH ^.ATTE 
MF'TS A T0 ^CHEAT ! ! " : ? : ? : GOTO 6010 


Insult routine 


IF FLAG=0 THEN FLAG=1:RETURN 

X=INT<RND(0)*5>:0N X GOTO 9030,9040,9050,9060 
? "Thy A doo(n A draws 1 oser . " : RETURN 
? "Hast *thy 11 *been *drawn?" : RETURN 
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9040 ? "Choose , thou *na>! i ous ^vermi n . !l ; RETURN 

9050 ? "Thee * suffer A nymphol epsy. M : RETURN 

9060 ? “Halt A thy A procrasti nation ^whelp. "s RETURN 


ChexSum Tables 


10 

— 

1396 

1080 

= 

944 

6040 

5= 

868 

20 

= 

2908 

1090 


197 

6050 

= 

756 

30 

= 

2156 

1100 

= 

556 

6060 

— 

580 

40 

— 

1038 

1110 

— 

1445 

7000 

— 

5031 

50 

= 

2270 

1120 

~ 

410 

7010 

as 

5479 

60 

= 

2042 

1 130 


307 

7020 

s= 

2100 

70 


1906 

3000 

= 

562 

7030 

— 

1022 

80 

= 

4403 

3010 

= 

746 

7040 

— 

43 

90 

ra 

2367 

3020 

= 

897 

8000 

ss 

4890 

100 

— 

1329 

3030 

ss 

743 

9000 

=3 

655 

110 

= 

4314 

3040 

= 

58 

9010 

=3 

2248 

120 

= 

5331 

5000 

— 

2750 

9020 

=3 

L^Ov' 

130 

— 

3679 

5010 

= 

1782 

9030 

— 

2516 

1000 


483 

5020 


1829 

9040 

=3 

nnc-cr 

jL D W U 

1020 

= 

507 

5030 

= 

1759 

9050 

~ 

2567 

1025 

as 

2885 

5040 


4023 

9060 

S3 

3258 

1030 

= 

728 

5050 

=3 

2249 




1040 

ss 

703 

6000 

ss 

J*-n “*f r* 

^ ■_> ■-> 




1050 

= 

553 

60JL0 

5S 

1527 

TOTAL 

as 

1135 

1060 

= 

2714 

6020 

= 

2682 




1070 

as 

1256 

6030 

=3 

3764 
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SORTGAME 



CLASSIFICATION: Strategy 

Object of game is to unscramble the board in the smallest 
possible number of moves. To make a move press the key that 
corresponds to the letter on the board that you wish to move. 

PROGRAMMING SUGGESTIONS 

The scramble routine could be sped up considerably by resorting 
to machine language. 
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Program 

Variables 


A 

Local 

BOARD() 

Holds board 

CHR 

Screen code for letters 

DL 

Local 

M 

Local 

Ml 

Local 

M2 

Local 

MOVES 

Number of times board altered 

MV 

Local 

SLOC 

Address of video RAM 

TOTAL 

Count of moves made 

VALID 

Flags valid move 

WHAT 

Holds what to do from menu 

XI 

Local 

Y 

Local 

Y1 

Local 

Z 

Local 

Program 


Structure 


10 

Jump to initialize routine 

90 

Select graphics mode 

100 - 300 

Main loop 

1000 - 1050 

End game 

5000 - 5110 

Draw board in GR.0 

6000 - 6110 

Draw board in GR.2 

7000 - 7080 

Make a move 

20000 - 22160 

Initialize the system 
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Listing 


10 OPEN #1,4,0,"K:":GOTO 20000 


Select graphics mode 


90 GRAPHICS 2 


Main loop 


100 

110 

111 

120 

130 

140 

150 

160 

180 

200 

210 

220 

300 


GOSUB 6000 
? CHR$(125) 

SETCOLOR 4,3,3 
? "PRESS ^.fiOVE" ; 

GET #1,A 
M—A—64 

IF M<1 OR M>15 THEN 100 
GOSUB 7000 

IF VALID THEN TOTAL=TOTAL+1 

Z—0:FOR X—1 TO 4:FOR Y=1 TO 4:IF BOARD(X,Y)<>Z THEN X=4 
: Y—4 

Z = Z + 1:NEXT YsNEXT X 
IF Z — 16 THEN 1000 
GOTO 100 


"" 

End game 


1000 GRAPHICS 0:GOSUB 5000 

1010 POSITION 4,10:? "COMPLETED * IN *'•; TOTAL; " ^MOVES’ 1 s IF MOVES 
=TOTAL THEN ? "PERFECT!" 

1020 ? :? :? "PRESS RETURN? ^FOR A ANOTHER ^GAME" 

1030 GET #1 , A 

1040 IF AO-155 THEN 1030 

1050 RUN 


Draw board in GR.0 


5000 ? CHR4> (125) 

5010 FOR X=1 TO 4 
5060 FOR Y=1 TO 4 

5070 Z=BOARD<X,Y):IF Z=0 THEN ? ; 

5080 IF Z THEN ? CHR$ <64+Z 
5090 NEXT Y:? 

5100 NEXT X 
5110 RETURN 
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6000 


Draw board in GR.2 


6010 

6060 

6070 

6080 

6090 

6100 

6110 


7000 

7O10 

7020 

7040 

7050 

7060 

7070 

7080 


DL*PEEK(560)+PEEK(561)*256s SL0C=PEEK <DL+4> +PEEK(DL+5)*2 
56 

FOR X=1 TO 4 
FOR Y=1 TO 4 

Z=BOARDC X „ Y):IF Z =0 THEN CHR=0 
IF Z THEN CHR=Z+32+(INT(Z/4>*64) 

POKE X*20+Y+SLOC+7+20,CHR 

NEXT Y:NEXT X 

RETURN 


Make a move 


VALID—1 

FOR X = 1 TO 4:FOR Y=1 TO 4:IF BOARD<X,Y)»M THEN X1=X:Y1= 
Y 


NEXT Y:NEXT X 

IF BOARD( X1 — 1,Y1)~0 THEN 

0s RETURN 

IF BOARD(Xl+1,Y1>«0 THEN 
0:RETURN 

IF BOARD<X1,Y1+1)=0 THEN 
0;RETURN 

IF BOARD(X1,Y1-1)=0 THEN 
0 s RETURN 
VALID=0:RETURN 


BOARD < X1 — 1, Y1)=Ms BOARD(XI,Y 1 ) = 
BOARD(X1 + 1,Y1)=M sBOARD(XI,Y1 ) = 
BOARD(XI,Yl + l)=M:BOARD(XI,Y1) = 
BOARD(X1,Y1-1)=M:BOARD< X1 ,Y1 ) - 


Initialize the system 


20000 DIN BOARD(5,5):FOR X~0 TO 5:F0R Y-0 TO 5s BOARD(X,Y)=99: 
NEXT YsNEXT X 

20010 Z=0:FOR X”1 TO 4:FOR Y=1 TO 4 
20020 BOARD(X,Y)*ZsZ*Z +Is NEXT YsNEXT X 


21000 GRAPHICS 0:? CHRS<125>:? :? :? “SELECT”s? s' 
NEW a BOARD" : ? :? "* *.= ^SCRAMBLE A DI SPLAY" :' 

21010 7 " A *3** ^SCRAMBLE"a? : INPUT WHAT: IF WHATC1 


*1 


OR WHAT>3 TH 


EN 21000 

22000 TOTAL 15 0s IF WHAT=1 THEN 90 

22010 ? : ? "HOW ^MANY *MQVES *.T0 ^SCRAMBLE" s : INPUT MOVES 
22020 GRAPHICS 2 

22100 M1=0:M2=0:FOR MV*1 TO MOVES 

22110 M=INT(RND(0)* 15)+1s IF M=M1 OR M=M2 THEN 22110 
22120 GOSUB 7000:IF VALID=0 THEN 22110 


22130 M2=M1:M1=M 

22140 IF WHAT=2 THEN SOSUB 6000 
22150 NEXT MV 
22160 GOTO 90 
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ChexSum Tables 


10 

= 

609 

5000 

— 

343 

7060 

=5 

2659 

90 

= 

145 

5010 

— 

394 

7070 

=S 

2661 

100 

= 

209 

5060 

as 

395 

7080 

— 

-r q 

110 

as 

343 

5070 

= 

1251 

20000 

ss 

2761 

111 

— 

350 

5080 

s= 

856 

20010 

ss 

1142 

120 

— 

848 

5090 

s= 

235 

20020 

ss 

1735 

130 

— 

316 

5100 

s= 

164 

21000 

s= 

4317 

140 

— 

594 

5110 

as 

58 

21010 

= 

1955 

150 

— 

678 

6000 

= 

2632 

22000 

ss 

832 

160 

= 

n ncr 

6010 

= 

394 

22010 

ss 

OOTO 

Jill All *41** f 

180 

= 

684 

6060 

= 

395 

22020 

s= 

145 

200 

= 

2803 

6070 

= 

1365 

22100 

— 

1081 

210 

ss 

872 

6080 

= 

1540 

22110 

as 

1765 

220 

SB 

417 

6090 


1104 

22120 

SS 

621 

300 

— 

112 

6100 

as 

338 

22130 

ss 

814 

1000 

— 

293 

6110 

ss 

58 

22140 

S= 

524 

1010 

= 

3000 

7000 

= 

330 

22150 

ss 

176 

1020 

= 

2451 

7010 

-s 

2555 

22160 

ss 

254 

1030 

= 

316 

7020 

~ 

338 




1040 

= 

522 

7040 

— 

2661 




1050 


59 

7050 

= 

2659 

TOTAL 

ss 

61931 
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SLEFT 
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CLASSIFICATION: Evasion 

The object of the game is to collect as many modules as 
possible. You also need to avoid mines, the roof and floor of 
the cave, and running out of fuel. Hitting a mine (solid 
circle) loses one man. Hitting a fuel container (*) adds 50 to 

your fuel. Modules are solid triangles. Joystick 1 controls 
movement. 

PROGRAMMING SUGGESTIONS 

Add enemy missiles to the game to make it more difficult. Make 
the missiles heat seeking and give the player some way of 
destroying them. 
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Program 

Variables 


A 

DL 

FLAG 

FLAG 2 

FUEL 

MEN 

OLDP 

P 

Q 

R 

SCREEN 

SIZE 

T 

U 

X$ 

xz 

Y 

YP 

Z 

Program 

Structure 

10 

100 - 250 

1000 - 1080 
2000 - 2070 

2300 - 2330 

3000 - 3010 

4000 - 4010 

5000 - 5040 

8000 - 8010 
20000 - 21080 


Used to set up machine code scroll routine 

Used to calculate starting address of video RAM 

Flag for sound effects 

As above 

Remaining fuel 

Number of men 

Old position of ship 

Current position of ship 

Screen code of whatever the ship hits 

=53770 Where to peek for a random number 0 - 255 

Address of start of video RAM 

Height of cave 

Local variable,many uses 

What to put on screen 

Local 

Address of top right of screen 
Position of top of cave 
Vertical position of ship 
Local, many uses 


Jump to initialize routine 
Main loop 

Setup machine language routine 

Hit something 

Game over 

Collect Fuel 

Collect module 

Out of fuel 

Display number of men left 
Initialization routine 
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Listing 


10 


SETCOLDR 


1 ,10,10:SETCOLOR 2,10,0s? CHR^<125)sGOTO 20000 


Main loop 


100 

101 

102 

110 

121 

123 

124 
130 
220 
J-^sJ 
226 
230 


250 


1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

10S0 


POKE 205,YSPOKE 206,SIZE:IF FLAG THEN SOUND 1,20,6,FLAG 
:FLAG-FLAG-1 

POSITION 13,22s? FUEL; " ; : FUEL=FUEL-1 s IF NOT FUEL THE 

N 5000 

IF FLAG2 THEN FLAG2=FLAG2~2:SOUND 0,50,10,FLAG2 
Z=INT(RND(0)*5)-2:Y=Y+Z:IF Y<1 THEN Y=1 

T=0:IF PEEK(R)>191 THEN T~Y*40+INT(RND(0)*SIZE)*40+XZ:P 
OKE T,84 

U=10:IF PEEK(R)>127 THEN U=72 
IF T AND PEEK(R)>191 THEN POKE T,U 
IF Y+SIZE >21 THEN Y=21-SIZE 
Z—USR(20527):Z=USR(20480) 

Z=STICK (0) : IF Z=14 AND YP THEN YF‘=YP-1 
IF Z=13 AND YP<22 THEN YP-YP+l 

OLDP-P:P=SCREEN+YP*40+10sPOKE OLDP-i,13:0=PEEK(P) : IF Q 
THEN 2000 

POKE P,127:GOTO 100 


Setup machine language routine 


RESTORE 1010:FOR T=20480 TO 20613: 
T:RETURN 

DATA 104,169,64,133,203,169,156,13 
0,177,203,136,145,203,200 
DATA 152,201,40,208,244,136,169,0, 
5,40,133,203,165,204,105 
DATA 0,133,204,202,208,221,96 
DATA 104,169,103,133,203,169,156,1 
0,0,169, 83,145,203,24,165 
DATA 203,105,40,133,203,165,204,10 
36,165,206,170,24,165,203 


READ As POKE T,A:NEXT 
3,204,162,22,160,0,20 
145,203,165,203,24,10 


33,204,165,205,170,16 
5,0,133,204,202,208,2 


DATA 105,40,133,203,165,204,105,0,1 

65,205,24,101,206,133,207 

DATA 56,169,22,229,207,170,169,128, 

05,40,133,203,165,204,105 

DATA 0,133,204,202,208,236,96 


33,204,202,208 
145,203,24,165 


240.1 

203.1 


Hit something 


2000 IF Q=10 THEN 3000 
2010 IF Q=72 THEN 4000 
2020 FOR T=15 TO 0 STEP -0.25 
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2030 

2040 


2050 
2060 
2070 
2 o< 00 
2310 



POKE P,TsSOUND 1,50,0,T 

NEXT T 

MEN—MEN-1 

IF MEN=0 THEN 2300 
GOTO 21000 

? CHR* < 125) : ? :? :? " ^GANE ^OVER 

SOUND 0,0,0,0:SOUND 1,0,0,05? :? ;? "*^^YOU ^COLLECTED A " 
;MODULES; " ^MODULES'* 

? : ? : ? "PRESS RETURN> ^.FOR ^ANOTHER ^GAME" ; : INPUT XT- 
RUN 


Collect Fuel 


3000 SOUND 1,50,6,15:FUEL=FUEL+50:FLAG=15 
3010 GOTO 100 


Collect module 


4000 MODULES=MODULES+l:POSITION 20,22:? "MODULESMODULES; 
4010 FLAG2-14s GOTO 100 


Out of fuel 


5000 

5010 

5020 

5030 

5040 


? CHRT <125 > 

POSITION 10,11 

SOUND 1,T,12,8:NEXT T 
SOUND 1,0,0,0s GOTO 2300 


FOR T—255 TO 0 STEP -1 


Display number of men left 


8000 POSITION 1,23:? 

B010 FOR T=1 TO MEN:POKE SCREEN+920+T,127:NEXT T:RETURN 


Initialization routine 


20000 GOSUB 1000:DIM XT(9):POKE 752,255 
20010 DL—PEEK(560)+PEEK(561)*256 
20020 SCREEN=PEEK(DL+4)+256*PEEK(DL+5) 

20060 MODULES*© 

20070 MEN=3 

21000 V=1:SIZE—9:POKE 205,Y:POKE 206,SIZE:FUEL=300:YP=4 

21001 P“SCREEN+YP*40+10:OLDF-P 
21010 FOR T=1 TO 40 

21020 Z«USR (20527) : Z==USR (20480) 
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21030 NEXT T 

21040 POSITION 8,22:? “FUEL *"* 

21050 60SUB 8000 

21060 X Z=SCREEN+39 

21070 R=53770 

21080 GOTO 100 


ChexSum Tables 


10 

= 

1319 

1070 

= 

3852 

5030 


721 

100 


1995 

1080 


1337 

5040 

— 

438 

101 

= 

1620 

2000 

=: 

460 

8000 


502 

102 

= 

1293 

2010 

— 

574 

8010 


1478 

110 


O 'T* ^ /I 
jC. *T 

2020 


542 

20000 

— 

985 

121 

= 

2978 

2030 

— 

900 

20010 

rr. 

1220 

123 


1386 

2040 

= 

166 

20020 


1400 

124 


1159 

2050 

= 

540 

20060 

rr 

287 

130 


1062 

2060 

= 

369 

20070 

7*^ 

•2> \Zi 

220 


1225 

2070 

__ 

130 

210GE 

— - 

2204 

one 
4. U 

= 

1558 

2300 

— 

1322 

21001 

^7 

1 cr 

X •— 1 \J 4. 

nn; 

iLjLO 

ss 

1203 

2310 

=i 

2827 

21010 

— 

456 

230 

2T2 

2871 

2320 

— 

2698 

21020 


1225 

250 

ZSZ 

472 

2330 

— 

59 

21030 

— 

166 

1000 

sss 

1710 

3000 

= 

1608 

21040 

zzz 

808 

1010 

25S 

7D7T 

3010 

— 

1 12 

21050 


241 

1020 

= 

3777 

4000 

— 

1838 

21060 


584 

1030 


1331 

4810 


494 

21070 

= 

515 

1040 

~ 

3884 

5000 

— 

.*i ***** 

O H *2» 

21080 


112 

1050 


3820 

5010 

St 

2890 




1060 

—- 

3810 

5020 

~ 

574 

TOTAL 


83212 
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CLASSIFICATION: Strategy 

A standard noughts and crosses game. You play the 
This program is self prompting. 

PROGRAMMING SUGGESTIONS 

Use a cursor to input moves (see OTHELLO). 

Program 
Variables 

A 
B 
C 

EVAL 
FULL 
INDEX 
LOOP 
MNUM 
MOVE 
MOVEQ 
PM 

Q 

R 


Local 

Local 

Local 

1,-1 or 0 Evaluation win,loose or draw 
-1 if no space on board 
Loca1,severa1 uses 
Loop counter 

Local in evaluation routine 
Flags who's turn it is 
Holds intermediate results 
Holds players move number 
Flag as in EVAL, 

Used if machine moves first 


computer. 
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R$ 

Local 

SCORE() 

Score table 

T 

Local, many uses 

W 

Local to print board routine 

W0RKB0ARDO 

Copy of PLAYBOARDQ 

X 

Local 

x$ 

Local 

z 

Local 

Program 


Structure 


10 - 10 

Jump to initialization 

5000 - 5190 

Draw Board 

60(90 - 6230 

Evaluate proposed move 

7000 - 7030 

Check if board full 

8000 - 8010 

Set scoring table 

10000 - 10050 

Evaluate subroutine 
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Listing 


10 GOTO 20000 



1000 CHR$ (125) : GOSUB 5000:GOSUB 7000: IF FULL—1 OR EVAL' ; ' ‘'O 
THEN 12000 

1010 POSITION 9,22:IF MOVE=l THEN ? "MY A MOVE M :GOTO ^000 
1020 ? "WHERE^TO?"INPUT PM 

1030 IF PM<1 OR PM>9 THEN ? CHR$(125):GOSUB 5000:GOTO 1000 
1040 IF PLAYBOARD<PM><>0 THEN ? "INVALID^MOVE":FOR PM=1 TO 1 
000: NEXT F‘M: GOTO 1000 

1050 PLAYBOARD< PM > =-1:MOVE——MOVE:GOSUB 5000 

1060 FOR T—1 TO 9:WORKBOARD(T)-PLAYBOARD(T):NEXT T 

1070 GOSUB 7000 

1080 IF EVALO0 OR FULL< >0 THEN 12000 


Machines move 


2000 INDEXED:FOR T=0 TO V:MOVE(T)=99:SCORE(T)—99:NEXT T 

2001 MOVE=—MOVE 

2010 GOSUB 7000:IF FULL THEN 9000 
2100 FOR LOOP—I TO 9 

2110 IF PLAYBOARD(LOOP)<>0 THEN 3000 

2120 FOR T—1 TO 9:WORKEDARD(T)—PLAYBOARD <T):NEXT T 

2130 WORKEDARD(LOOP)=1:GOSUB 6000 

2140 MOVE(INDEX)=LOOPsSCORE(INDEX)=EVAL 

2150 INDE X = INDE X +1 

3000 NEXT LOOP 


Aggressive move 


4000 Q«0:MNUM=0:FOR X=B TO 9 

4S10 IF SCORE<X )-1 THEN MNUM-MOVE(X >:Q=1 

4020 NEXT X 

4030 IF Q THEN PLAYBOARD<MNUM)-1:GOTO 1000 


Defensive move 


4100 Q=0:MNUM=0:FOR X=0 TO 9 

4110 IF SCORE<X>=0 THEN MNUM-MOVE(X):Q—1 

4120 NEXT X 

4130 IF Q<>0 THEN PLAYBOARD(MNUM)=1:GOTO 1000 
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4200 Q=0:MNUM«0sFOR X = 0 TO 9 

4210 IF SCORE <X > 1 THEN MNUM«MOVE<X >;D-i 

4220 NEXT X 

4230 IF QO0 THEN PLAYBOARD (MNUM) : GOTO 1000 


Error if here 


4240 STOP 


Draw Board 


5000 

POSITION 

9 n 4 

5010 

W=0:FOR X 

= 1 TO 3s GOSUB 5100 

5011 

W=W+1:IF 

W<3 THEN ? 'T; 

5012 

NEXT X 


5013 

POSITION 

9,5:? "—HI -h—“ 

5020 

POSITION 

9,6 

5030 

W—0:FOR X 

=4 TO 6 s GOSUB 5100 

5031 

W=W+1:IF 

W< 3 THEN ? " g ** q 

5032 

NEXT X 


5033 

POSITION 

9,7:? " — (-!—" 

5040 

POSITION 

9,8 

5050 

W=0:FOR X 

—7 TO 9:GOSUB 5100 

5051 

W=W+1sIF 

W< 3 THEN ? " | " ; 

5052 

NEXT X 


5060 

GOTO 5140 


5100 

2=PLAYBOARD(X>sIF 2=0 THEN 

5110 

IF Z -—1 THEN ? "O" ; 

5120 

IF Z-l THEN ? "X"; 

5130 

RETURN 


5140 

POSITION 

20,4:? "1|2|3" ; 

5150 

POSITION 

20,5:? "— i -1 — " ; 

5160 

POSITION 

20.6:? "4|5|6"; 

5170 

POSITION 

20,7:? "—S- i— 

5180 

POSITION 

20,8: ? "7|8| 9" ; 

5190 

RETURN 



Evaluate proposed move 


6000 A-WORKBOARD < 7 >:B=WDRKBQARD< 5):C=WORKBOARD(3) 
6010 IF A=1 AND B=1 AND C-l THEN EVAL—1:RETURN 

6020 IF A=—1 AND B=~l AND C=0 THEN EVAL=-1:RETURN 

6021 IF A—1 AND B=0 AND C=-l THEN EVAL—1sRETURN 

6023 IF A=0 AND B=-l AND C=-l THEN EVAL=-1:RETURN 

6030 A-WORKBOARD(1) s C—WORKEDARD(9) 

6040 IF A=1 AND B=1 AND C=1 THEN EVAL=1:RETURN 

6050 IF A——1 AND B=-i AND C=0 THEN EVAL--1:RETURN 

6051 IF A=—1 AND B=0 AND C=~l THEN EVAL=-1sRETURN 

6052 IF A=0 AND B=-l AND 0-1 THEN EVAL—1 s RETURN 
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Evaluate horizontal lines 


6120 

6130 

6140 

6141 

6142 
6150 


0-0:FOR T—1 TO 7 STEP 3:A=WORKBOARD(T):B-WORKBOARD(T+l) 
: OWORKBOARD < T+2) 

IF A= 1 AND B=1 AND 0=1 THEN 0-1: T=99: GOTO 6150 
IF A=~l AND B=-l AND C=0 THEN Q=-l 
IF A=-1 AND B=0 AND C=-1 THEN Q=-l 
IF A—0 AND B=-1 AND C=-l THEN Q=-l 
NEXT T: IF GOB THEN EVAL=Q: RETURN 


Evaluate vertical lines 


6180 FOR T=1 TO 3:A=WORKBOARD<T>:B=W0RKB0ARD(T+3):C=WORKBOAR 
D <T+6> 

6190 IF A=1 AND B=1 AND 0=1 THEN Q-1sT=99:GOTO 6210 

6200 IF A=—1 AND B=-l AND C-0 THEN Q=-l 

6201 IF A——1 AND B=0 AND C=-l THEN Q=-1 

6202 IF A—0 AND B=-l AND C--1 THEN Q--1 
6210 NEXT T 

6230 EvAL-Q:RETURN 


Check if board full 


7000 FULL.= 1: FOR T- 1 TO 9: WORKBOARD (T) =PLAYBOARD (T) : IF PL AYBO 
ARD(T)—0 THEN FULL=0 
7010 NEXT T 
7020 GOSUB 10000 
7030 RETURN 


Set scoring table 


8000 FOR T—0 TO 9s? MOVE(T),SCORE(T):NEXT T 


Evaluate subroutine 


9000 POSITION 9,1:? " *GAME *OVER A : STOP 
10000 EVAL=0: A^WQRKBOARD (7 > : B-WORKBOARD (5) : C=W0RKB0ARD < 3) 
10010 IF A-l AND B=1 AND C==l THEN EVAL= 1: RETURN 
10020 IF A=~1 AND B——1 AND C=-l THEN EVAL=-1:RETURN 
10030 A=WORKBOARD(1) s C—WORKBOARD(9) 

10040 IF A= 1 AND B== 1 AND C=1 THEN EVAL= 1: RETURN 
10050 IF A=— 1 AND B=-l AND 0-1 THEN EVAL=-1: RETURN 
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Evaluate diagonal lines 


10120 0=0: FOR T=1 TO 7 STEP 3:A=WORKBOARD(T):B=WORKBOARD(T+l> 
: C-WORKBOARD (T+2) 

10130 IF A= 1 AND B=1 AND Ol THEN Q=1 

10140 IF A—-1 AND B=—1 AND C=-l THEN Q=~l 
10150 NEXT T:IF Q<>0 THEN EVAL=Q:RETURN 


Win,lose or draw 


10200 FOR T=1 TO 3sA=W0RKB0ARD(T):B-WORKBOARD<T+3>:C=WORKBOAR 
D<T+6> 

10210 IF A=1 AND B=1 AND C~1 THEN Q=1sT=99:GOTO 6210 

10220 IF A=-1 AND B=-l AND C=-l THEN Q«-l 

10230 NEXT T 

10240 EVAL—Qs RETURN 

10250 REM 6-STRETTON 85 

12000 ? s? s IF EVAL=-1 THEN ? "YOU *.WIN": GOTO 12030 
12010 IF EVAL^l THEN ? “ ^.1 A WIN" s BOTO 12030 
1202.0 IF FULL— 1 THEN ? " ^A^DRAW" 

12030 ? : ? : ? "PRESS *<RETURN> A FOR ^ANOTHER ^GAME" 

12040 INPUT X* 

12050 RUN 


Initialize 


20000 DIM WQRKBOARD(9)„PLAYBOARD<9),R$<10>,SCORE(9),MOVE(9), X 
$<9) 


20010 

20020 

20030 

20100 

21000 

21010 

21020 

21030 

21040 

21050 


MOVE=—1 
? CHR'-t < 125 > 


DL»PEEK(560)+PEEK(561)*256 

FOR INDEX—0 TO 9:PLAYBOARD<INDEX)=0;NEXT 

? "WILL A YOU*MOVE A FIRST *(Y/N) " ; : INPUT R$ 

IF R$="Y" OR R$s"y" THEN 1000 

IF R$<> n N" AND RtO"n" THEN ? :? "SORRY": 

R=INT(RND(0)*5)*2+1 

PLAYBOARD<R>=1 


INDEX 


GOTC 


GOTO 1000 


21000 
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ChexSum Tables 


10 

— 

114 

1000 

= 

1523 

1010 

s= 

1434 

1020 

35 

927 

1030 

= 

1387 

1040 

= 

2330 

1050 

= 

1335 

1060 

25 

1509 

1070 

— 

225 

1080 

= 

571 

2000 

= 

2451 

2001 

= 

451 

2010 



2100 

= 

411 

2110 

— 

612 

2120 

= 

1509 

2130 

SS 

821 

2140 

— 

1314 

2150 

— 

521 

3000 

=s 

176 

4000 

= 

982 

4010 

SS 

1608 

4020 

-5 

179 

4030 

— 

946 

4100 

=s 

982 

41 10 

•s 

1543 

4120 

— 

179 

4130 


1006 

4200 

— 

982 

4210 


1664 

4220 

= 

179 

4230 

SS 

1006 

4240 

SS 

60 

5000 

= 

254 

5010 

= 

962 

5011 

SS 

1117 

5012 

SS 

179 

5013 

SS 

458 

5020 

= 

256 

5030 

= 

968 

5031 

SS 

1117 


5032 

— 

179 

7010 

SS 

166 

5033 

=s 

460 

7020 

= 

115 

5040 

— 

258 

7030 

— 

58 

5050 

SS 

974 

8000 

ss 

1409 

5051 

= 

1117 

9000 

ss 

1201 

5052 

SS 

179 

10000 

= 

2192 

5060 

SS 

256 

10010 

ss 

1403 

5100 

MM 

1075 

10020 

52 

1627 

5110 

ss 


10030 


i. 

5120 

= 

506 

10040 

ss 

i 403 

5130 

ss 

58 

10050 

=: 

1627 

5140 

ss 

808 

10120 


3209 

5150 

ss 

503 

10130 


1306 

5160 

ss 

819 

10140 

ss 

1526 

5170 

ss 

505 

10150 


920 

5180 

ss 

830 

10200 

ss 

A, / A.AL 

5190 

ss 

58 

10210 

ss 

2142 

6000 

ss 

1868 

10220 

2 S 

1526 

6010 

=: 

1403 

10230 

SI 

166 

6020 

ss 

1506 

10240 

ss 

472 

6021 

= 

1506 

12000 

=s 

1365 

6023 

ss 

1506 

12010 

ss 

995 

6030 

ss 

X Jtn ijL 

12020 

— 

825 

6040 

= 

1403 

12030 

IS 

2451 

6050 

ss 

1506 

12040 

= 

178 

6051 

ss 

1506 

12050 

ss 

59 

6052 

— 

1506 

20000 

ss 

2148 

6120 

ss 

3209 

20010 

ss 

392 

6130 

ss 

2205 

20020 

IS 

343 

6140 

ss 

1406 

20030 

IS 

•i 007 

1 A-JL.A- 

6141 

= 

1406 

20100 

= 

1 109 

6142 

= 

1406 

21000 

ss 

2029 

6150 

— 

920 

21010 

ss 

848 

6180 

ss 

2722 

21020 

ss 

1573 

6190 

ss 

2142 

21030 

ss 

9c? <9 

6200 

= 

1406 

21040 

ss 

597 

6201 

ss 

1406 

21050 

ss 

127 

6202 

ss 

1406 




6210 

ss 

166 




6230 

ss 

472 

TOTAL 

ss 

127479 

7000 

ss 

2549 
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PINGPONG 



CLASSIFICATION: Reflex 

This is a two player game, the objective being to keep the ball 
going as long as possible. Joysticks move the bats up and 
down. There is a practice mode in which you can play the ball 
against the wall. Pressing the fire button on the joystick 
serves the ball. 

PROGRAMMING SUGGESTIONS 

Ball's rebound could be made dependant on bat's direction at 
time of hit. Size of bats could be varied to make game 
harder/easier. 

Program 
Variables 

BALL 
BALLH 
BALLV 
BAT1 
BAT2 
DIRH 
DIRV 
0BAT1 
0BAT2 


Screen code for ball 

Ball's horizontal position 

Ball's vertical position 

Player l's bat position 

Player 2's bat position 

Ball's horizontal direction 1 or -1 

Ball's vertical direction 1 or -1 

Bat l's old position 

Bat 2's old position 
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OLDBALLH 

OLDBALLV 

QZ 

SCORE1 

SCREEN 

SERVE 

T 

WALL$ 

X$ 

Z 

Program 

Structure 

10 

20 - 30 

100 - 250 

4000 - 4030 

5000 - 5030 

20000 - 23000 


Ball's old horizontal position 

Ball's old vertical position 

Constant in joystick routine 

Player 2’s score 

Address of start of screen 

Who serves 1 or 2 

Local variable 

Holds graphics for wall 

Local variable 

Local variable 


Jump to initialization 
Put bats onto the screen 
Main loop 
Game end 
Draw court 

Intialization routine 
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Listing 


10 POKE 752,1s GOTO 20000 


Put bats onto the screen 


20 POKE SCREEN+40*OBAT1+2,0:POKE SCREEN+40*BAT1+2,124:IF P 
PACT THEN RETURN 

30 POKE SCREEN+40*OBAT2+38,0s POKE SCREEN+40*BAT2+38 124s RE 
TURN 


Main loop 


100 0BAT1=BAT1:0BAT2=BAT2:Z=STICK(0)/2s IF Z = QZ THEN 140 
110 IF BAT1>1 AND Z=INT(Z) THEN BAT1-BAT1—1 
120 IF BAT 1 <21 AND ZOINT(Z) THEN BAT 1 =BAT1+1 
140 Z=STICK(1)/2s IF Z=QZ THEN 160 
142 IF BAT2>1 AND Z=INT(Z> THEN BAT2=BAT2-1 
150 IF BAT2<21 AND ZOINT(Z) THEN BAT2=BAT2+1 
160 IF BALLH=37 AND PRACT THEN DIRH=-1:DIRV=INT(RND(0)*3)-1 
sSOUND 0,20,10,9 

170 GOSUB 20:OLDBALLH=BALLH:OLDBALLV=BALLV:BALLH=BALLH+DIRH 
:IF BALLH<2 OR BALLH>38 THEN GOTO 900 
190 SOUND 0,0,0,0:Z=D J.RV+BALLV:IF Z<1 THEN DIRV=1:SOUND 0,1 
21,10,9 

200 IF Z >21 THEN DIRV=-1: SOUND 0,100,10,9 

210 BALLV=BALLV+DIRV:Z=BALLH+40*BALLV+SCREEN:IF PEEK(Z>=124 
THEN DIRH=—DIRH: DI RV= I NT (RND (0) *3) — 1: SOUND 0,30,10,9 
240 POKE Z,BALL:IF OLDBALLHC>20 THEN POKE OLDBALLH+40*OLDBA 
LLV+SCREEN,0:GOTO 100 

250 POKE OLDBALLH+40*OLDBALLV+SCREEN,26:GOTO 100 


Adjust score and serve 


900 SERVE=1:IF BALLH<2 THEN SERVE=2 

1000 IF SERVE*1 THEN SCORE 1=SCORE1 + 1 

1010 IF SERVE—2 THEN SC0RE2=SC0RE2+1 

1020 IF SCORE1=15 OR SC0RE2=15 THEN 4000 

1030 IF PRACT THEN 5ERVE=1 

2000 GOSUB 5000:BALLV=10:SOUND 0,0,0,0 

2010 POSITION 4,23:? SCORE1 5 sPOSITION 34,23:? SCQRE2? 

2020 IF SERVE=1 THEN BALLH=3:DIRH=1 

2030 IF SERVE=2 THEN BALLH=37:DIRH=-1 

2035 BAT1=10:BAT2=10:OBAT1=BAT1:0BAT2=BAT2:GOSUB 20 

2040 POKE SCREEN+40*BALLV+BALLH,BALL 

2050 IF SERVE=1 AND STRIG(0) THEN 2050 

2060 IF SERVE=2 AND STRIG(l) THEN 2060 
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2070 DIRV—INT(RND(0)*3)-Is IF DIRV-0 THEN 2070 
2090 GOTO 100 


Game end 


4000 

4005 

4006 

4010 

4020 

4030 


POSITION 4,23s? SCORE 1POSITI ON 34,23:? SC0RE2; 
POSITION 0,23:FOR T=1 TO 22s? :FOR Z-l TO 50 STEP 4:SOU 
ND 0,Z,10,9:NEXT ZsNEXT T 

FOR Z—255 TO 0 STEP -IsSQUND 0,Z,10,9:NEXT ZsSOUND 0,0, 

0,0 


POSITION 10,9s? " Game *.over " : ? 
^another A game. " 


"Press A < RETURN > 


INPUT X$ 
RUN 


Draw court 


5000 

5010 

5020 

5030 


? CHR$(125)sPOSITION 0,0:? 

« 

5 


WALL^; 


POSITION 0 


WAL IM¬ 


POSITION 0,10:? " 

FOR T—1 TO 21:POSITION 
THEN RETURN 

FOR T = 1 TO 21:POSITION 


20,Ts? ":";:NEXT TsIF NOT PRACT 
38, Ts? I";:NEXT T:RETURN 


Intia1ization routine 


20000 SETCOLOR 4,12,2:SETCOLOR 1,12, 
<125) 

20010 SCREEN=40000 
20020 DIM X$<9> 

21000 PRACT—0:? :? :? :? "LP3ractice 
21010 IF XIO-'P" AND X$< >"p" AND X$< 


14:SETCOLOR 



CHR* 


^or A [G3ame"; : INPUT X* 
>"G" AND X#<>"q" THEN ? : 


? : ? "SAY^WHAT???":? :? :GOTO 21000 
21020 IF X*-"P" OR X$="p" THEN PRACT=1 

22000 DIM WALLS <40): FOR T-2 TO 40: WALL.* (T , T) -CHR* (160) : NEXT T 
: WALLM (1 , 1) » ,J 


22040 BAT1-10:BAT2=10 


22050 BALL=84 


22060 QZ = 7.5 

23000 SERVE=1 :GOTO 2000 
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ChexSum Tables 


10 


461 

1020 

= 

811 

5010 



20 

= 

1910 

1030 


543 

5020 

as 

1569 

30 

s= 

1780 

2000 

= 

819 

5030 

a: 

1390 

100 

= 

1996 

2010 

— 

1192 

20000 

— 

1672 

110 


1376 

2020 

= 

1053 

20010 


1426 

120 

“ 

1402 

2030 


1 161 

20020 

= 

386 

140 

s= 

1234 

2035 

— 

1791 

21000 

sr 

2759 

142 

= 

1385 

2040 

5= 

902 

21010 

— 

2916 

150 

= 

1411 

2050 

ss 

753 

21020 

= 

1079 

160 

as 

2415 

2060 

= 

835 

22000 

— 

2982 

170 

s= 

2516 

2070 

— 

1399 

22040 

— 

734 

190 

as 

2112 

2090 

s= 

112 

22050 

— 

4B1 

200 

— 

1209 

4000 

= 

1192 

22060 

=1 

429 

210 

= 

4147 

4005 

= 

2546 

23000 

— 

517 

240 


1681 

4006 

= 

1615 




250 


1017 

4010 

— 

4414 




900 


1057 

4020 

s= 

178 

TOTAL 


*7 ■-> -t 1 Ci 

/ .c. «•! J. O 

1000 

= 

868 

4030 


59 




1010 

sr 

871 

5000 

= 

1327 
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ROCK COLLECTOR 



CLASSIFICATION: Evasion 

Collect as many rocks as you can in the time allowed. If you 
hit five spikes you die.Use the I to move left and P to move 
right. 

PROGRAMMING SUGGESTIONS 

Add new objects with different score values. 

Make the game work for two players at once. 

Program 
Variables 

X Your position 

SCORE Your current score 
DEATH Lives left 
BRIGHT Time left 

Program 
Structure 

10 - 50 Inialization 

100 - 250 Main loop 


B Your position in 

screen RAM. 

COU Counter 

T,A,S,A$ Local variables 


500 - 660 Crash into object 

1000 - 1520 Game over 
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Listing 



10 GRAPHICS 0:POKE 752,255 
20 X-20 

30 DEATH-5 

40 BRIGHT*15 

50 COU=6 


Main loop 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 


200 

250 


POSITION INT(RND <1)*40) ,23 
PRINT "* n ; 

POSITION INT(RND(1> *40> , 23 
PRINT '‘I" 


B—40000+X 


IF PEEK <B> < >0 THEN GOSUB 500 
POKE B,128 


COU=COU-l 


IF COU<0 THEN C0U=6: 

:IF NOT BRIGHT THEN 
X*X +((PEEK<754)*10) 
(STICK <0) =11) ) ; T ;- X 
POSITION 0,^.PRINT S 
GOTO 100 


BRIGHT ~BRIGHT-1: 

GOTO 1000 
OR (F*. ICK (0) -7) ) 
<5 OR X >38 THEN 
CORE 


SETCOLOR 4,0,BRIGHT 

—((PEEK(754)=13) OR 
X—20 


Crash into object 


500 
5 3 0 
520 
530 
540 
550 
560 
570 
580 
600 
o 1 O 
620 
630 
640 
650 
660 


IF PEEK<B)—124 THEN GOTO 600 

FOR T=30 TO 0 STEP -5 

SOUND E,T,10 .10!SOUND 1,255-T,10.10 

SETCOLOR 1,4,7/2 

NEXT T 

SOUND 0 „ 0 „ 0 „ 0: SETCOLOR 1.4,1 0; SOUND 1 „ 0 0 H 0 
S C O R E=3 C O R E +10 0 0 
POSITION 0,0:PRINT SCORE 
RETURN 

FOR T=0 TO 50 STEP 5 

SOUND 0,T,10,10:SOUND 1,255-1,10,10 
SETCOLOR 4,0,T/2 

NEXT T:SOUND 1,0,0,0:SOUND 0,0,0,0 
SETCOLOR 4,0,BRIGHT 
DEATH=DEATH-1 
IF DEATH THEN RETURN 
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Game over 


1030 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1 140 
1150 
1160 
1170 
1180 

1190 

1500 


1510 

1520 


FOR 7“0 TO 250 


SOUND 0,T,1B,7 
SOUND 1,1+1,10,7 
SOUND 2,1+2,10,7 
SOUND 3,1+3,10,7 
NEXT T 

FOR A—1 TO 20 
FOR T=0 TO 15 
SETCOLQR 1,8,T 
SETCOLOR 2,15-T,8 
SETCOLOR 4,T,10 
NEXT T 
NEXT A 

SOUND 0,0,0,0s SOUND 1,0,0,0:SOUND 2,0,0,0:SOUND 3,0,0,0 
DIN AT(20> 

GRAPHICS 18 

AT--" GAME *0VER " s S=5: GOSUB 1500 
AT-= " YOU ^SCORED " s S=5: GOSUB 1500 

AT-STRT(SCORE) s AT <LEN(AT) ,LEN(AT)+7)="^POINTS":S-4:GOSU 
B 1500 
POP :RUN 


FOR T~0 TO 11:POSITION S,TsPRINT AT:SOUND 
OUND i,200-T,10,10:NEXT 7 

FOR T=0 TO 11: POSITION 0,T: PRINT #6; *' 

“ : NEXT T * * 

RETURN 


0 


10,8: S 


ChexSum Tables 


10 

= 

513 

530 

20 

— 

359 

m y "7* *^r 

540 

oC) 

— 

*2' O v' 

550 

40 

S= 

350 

560 

50 

— 

338 

570 

100 

*= 

811 

580 

110 

= 

214 

600 

120 

— 

811 

610 

130 

— 

194 

620 

140 

as 

502 

630 

150 

= 

528 

640 

160 

= 

*7* >*•, ”r 

L’ jL- *J> 

650 

170 

— 

500 

660 

180 

— 

1975 

1000 

190 

— 

3863 

1010 

200 

— 

••*** ^ —T- 

._*• / L 1 

1020 

250 

= 

112 

1 0 sl> 0 

500 

ss 

-j#* 

O *L‘ O 

1040 

510 

— 

537 

1050 

520 

s= 

125S 

1060 


2= 

520 

1070 

— 

347 

=S 

165 

1080 

— 

405 


946 

1090 

= 

543 

— 

519 

1100 


416 

~ 

323 

1 1 10 

= 

165 

55 

58 

1120 

— 

166 

— 

515 

1130 

s= 

1235 

= 

1258 

1140 

= 

391 

= 

455 

1150 

— 

167 

= 

706 

1160 

= 

1455 


*i ■' 

1170 

as 

156 1 

= 

496 

1180 

— 

2869 

— 

n*r i 

aL. J 1 

1190 

=s 

127 

s= 

409 

1500 

= 

2634 

— 

453 

1510 

a= 

1739 


634 

1520 

= 

58 

s= 

636 




= 

638 




= 

165 

TOTAL 

3£ 

3863 

= 

424 
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SNAKES 



CLASSIFICATION: Strategy 

This is a two player game where each player must use 
skill and intelligence to make his opponent crash into 
the side of the screen, or the other snake. Player 
the keyboard and Player Two uses the joystick. 

PROGRAMMING SUGGESTIONS 

If you wanted, you could add a third player (he would 

use joystick port 2), or you could add some kind of 
system. 


all his 
himse1f, 
One uses 


have to 
scoring 
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Program 

Variables 


XI,Y1 
X2,Y2 
DX1,DY1 
DX2,DX2 
PI1$,PI2$ 

Program 

Structure 


Player One's Co-ordinates 
Player Two's Co-ordinates 
Player One's Direction 
Player Two’s Direction 
Names of players one & two 


Line 


10 - 

30 

Initialisation 

100 - 

280 

Main loop 


1000 - 

1050 

Player One's 

death 

2000 - 

2050 

Player Two's 

death 

7000 - 

8000 

Ask Player's 

names 
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Listing 


Initialisation 


12> SOSUB 7000: GRAPHICS O: POKE 752,255 

20 X3.=0: Yl=12: X2=39:Y2=12 

30 DX1-1sDY1=G:DX2=-I:DY2-0 


Main loop 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 

210 

220 

230 


POKE 40000+X1+Y1*40,128 
POKE 40000+X2+Y2*40,128 
IF (PEEK(754)=13) THEN DXi=-lsDYi=0 
IF (STICK <0)=11> THEN DX2=-1:DY2«0 
IF (PEEK(734)=10) THEN DXl=lsDYl=0 
IF <3TICK(0)=7) THEN DX2=1:DY2=0 
IF (PEEK(754)=47) THEN DX1=0:DY1=-1 
IF (ST IC-K < 0) = 14) THEN DX2=0: DY2=- 1 
IF (PEEK(754)=23) THEN DX1=0:DY1=1 
IF (STICK(0)=13) THEN DX2=0:DY2=1 
X 1 = X 1-+-DX Is IF < X 1 < 0 OR X 1 >39 ) OR (Y 1 < 0 
TO 1000 
X2=X2+DX2 
Y1 --Y 1 +DY1 


OR Y1>23) 


2=Y2+DY2 


I HEN BO 


240 

250 

260 

270 

280 


IF PEEK (400004X 14-Y 1*40} = 12.8 THEN G0T0 
IF PEEK (4O0004-X2-i*V2*40) =128 T HEN GOTO 
IF <X1<0 OR XI>39) OR (Y1<0 OR Yl>23> 


IF (X2<0 OR X2 
GOTO 100 


39) OR (Y2< 0 OR Y2>23) 


1000 
2000 

THEN GOTO 
THEN GOTO 


I 000 
200 © 


Player One's death 


1000 
1010 
1020 
1030 
1040 

1050 


^“sPLlSi" 
...HAS *WON M 


IS *DEAD. " 


GRAPHICS 18 
? #6:7 #6:? #6:? #6;" 

2 #6:? #6;" a *"5PL2$s 
POKE 754,0 

F OR T = G TO 100;SOUND i,T,0,10:1F F EEK(754)=0 T HEN NEXT 

T:GOTO 1040 

RUN 
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Player Two's death 


2000 GRAPHICS 18 

2010 ? #6:? #6:7 #6:7 #6; " * ; F’L2T; " ^IS JDEAD. H 

2020 7 #6:7 #6; " ^ ; PL1S; H ^HAS A WON" 

2030 POKE 754,0 

2040 FOR T=C TO 100:SOUND 1,T,0,10:IF PEEK(754)=0 THEN NEXT 
T:GOTO 2040 
2050 RUN 


Ask Player's names 


7000 

7010 

7030 

7040 

7050 

7060 

7070 

7080 

7090 

8000 


DIN PLi*<8>,A*<40>„PL2*<8> 

GRAPHICS 2:POSITION 0,5:7 #65 "PLAYER *1 *NAME *.?" s 7 #65 “(M 
AX. *.8 ^CHARACTERS) " 

INPUT A* 

IF LEN<A*>>8 THEN GRAPHICS 18:P03ITI0N 0,6:7 #6;“SHORTE 
N A IT,Y0U A F00L!":FOR T=0 TO 1000;NEXT T:GOTO 7010 
PL 11-=AT- 


GRAPHICS 2:POSITION 0,5:7 #65 "PLAYER *2 *NAME *7“ : 7 
AX. * 8 ^CHARACTERS)" 

INPUT AT 

IF LEN(AT> >8 THEN GRAPHICS 18:POSITION 0,6:7 # 6 ; " 
N a IT , YOU *.FOOL ! " : FOR T=0 TO 1000: NEXT Ts GOTO 7050 
PL2T-=AT- 
RETURN 


#6; “ (N 


SHORTE 


ChexSum Tables 


10 

— 

769 

230 

- 

Ini' C* L.’ * 

»_! v_;- u 

2040 


1862 

20 

= 

1454 

240 


1 126 

2050 

= 

59 

30 

= 

1371 

250 

= 

1 146 

7000 

= 

1 i 13 

100 

= 

784 

^i60 

= ; 

1437 

7010 

SK 

3130 

110 

— 

783 

—v 

2 / w 

“ 

1461 

7030 

= 

163 

120 

= 

1336 

280 

=S 

1 12 

7040 

-• 

3659 

130 

= 

1194 

1000 


167 

7050 

- 

397 

140 

= 

1277 

1010 

— 

1657 

7060 

= 

3131 

< trrt 

1 u\a 


1 128 

1020 

— 

1221 

7070 


163 

160 

—• 

1387 

1030 

— 

255 

7080 

=: 

*-l l / all. %I> 

170 

— 

1 196 

1040 

—■ 

1846 

7090 


398 

180 

— 

1296 

1050 

= 

59 

8000 

= 

58 

190 

— 

1 1 40 

2000 

= 

167 




200 


2046 

2010 

— 

1658 




210 

= 

crirr 

U lJ 

2020 


1220 

TOTAL 

-- 

5046 

220 

as 

549 

2030 

s= 

*0— uJ bi 
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DIAMOND HUNT 



CLASSIFICATION: Reflex 

In the time allowed, you must collect all the diamonds 
If you crash into a rock, five more diamonds will be 
across the screen, but time will be taken away. 

PROGRAMMING SUGGESTIONS 

Increase the speed of your man as you collect more 
diamonds. 


you can. 
scattered 


and more 
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Program 

Variables 


x 

Y 

SCORE 

TIME 

U 

S,S1 

S2 

FLAG1,FLAG2 
NOISE,NOISE1 
T 


Program 

Structure 


10 - 

50 

100 - 

250 

500 - 

600 

1000 - 

1040 

2000 - 

2050 

5000 - 

5070 

6000 - 

6060 


The X coordinate 
The Y coordinate 
Your score 

The time you have left 
Character you have crashed into 
Music data 

Flag to indicate end of music 
Flags for sound effects 
Sound effect pitches 
Dummy variable 


Initialize the game 
Main loop 
Hit the diamond 
Hit a rock 
The time is up 
Music data 

Draw the title screen 
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Listing 


5 GOSUB 6000 


10 

20 

30 

40 

SO 


100 
110 

120 

130 

140 

150 

160 

170 

ISO 

190 

200 

210 


220 


230 

240 

250 


Initialize the game 


POKE 752,255:GRAPHICS 0 
X--0: Y= 1 

FOR 7—0 TO 9: POKE 40000+ INT (RND (1 > *880) , 84: POKE 40000+1 
NT<RND<1>*880),96:NEXT T 
SCORE=0:TIME-999 

POSITION 0,22:PRINT "^^^SCORE:-TIME:" 


Main loop 


F'DKE 40000+ X +Y*40,0 

V-V+( <PEEI<<754 >=23) DR <ST ICK < 0 > = 13) )-< (PEEK <754) =47) 
R (STICK(0> =14) ) 

IF Y<0 THEN Y=21 
IF Y>21 THEN Y = 0 
X=X +1: IF X >39 THEN X=0 
U=PEEK(40000+ X +Y + 40) 


0 


POKE 40000+X+Y+40,127 
IF U-96 THEN GOSUB 500 
IF U—84 THEN GOSUB 1000 


\ I ME—TIME ‘Is POSH ION 50,22:? TIME: M : : IF TIME<1 T W EN G 
OTO 2000 . 

READ S, 31 ,S2: SOUND 0, S , 10,10: SOUND 1,S1„10,10:IF S'? THE 
N RESTORE 

IF FLAG1 THEN NOISE-NOISE-1:SOUND 2,NOISE,B,13:SFTCOLOR 
1,8,1NT<RND(1> *15) ;IF NOISE<1 THEN FLAG1=0:SOUND 2.0,0 
,0:SETCOLQR 1,13,10 

IF FLAG2 THEN NOISE1-NOISE1-10:SOUND 3,N0ISE1,10,10:IF 
NO I bE 1 1 THEN NO ISE1 =30: FLAG2=FLAG2~ 1: IF FLAG2=0 THEN S 
OUNB 3.0,0,0 

IF FLAG2 THEN SETCOLOR 2,INT<RND<1)* 15) ,3 

IF NOT FLAG2 THEN SETCOLOR 2,11,5 
GOTO 100 


Hit the diamond 


500 SCORE=3CORE+50 
510 POSITION 15,22:? SCORE; 
520 NOISE1=30:FLAG2-4 

600 RETURN 
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im 0 
1010 
1020 
1030 
i 035 
1040 


2000 

2010 

2020 

2030 

2040 

2050 


5000 

5010 

5020 

5030 

504© 

5050 

5060 

5070 


6000 
6005 
601 0 
6015 

6020 

6030 

6035 


FOR T~0 TO 4 

POKE 40O00+INT(RND<i)*880),96 
NEXT T 

TINE=TIME-20 
NOISE—10:FLAG1=1 
RETURN 


The time is up 


GRAPHICS IB:SOUND 0,0, 0 , 0 :SOUND 1,0,0,0:SOUND 2,0,0,0:S 
OUND 3,0,0,0 

? #6:? # 6 :? #6:? #6^ * 4 . A A TIME A UP ! " 

? #6:7 # 6 ; " YOUR ^SCORE ^WAS A *'; SCORE 
POKE 754,0 

SOUND 0,INT(RND(1)*30),7,10:SOUND 1,INT(RND(1)*255),4,1 

02 IF PEEK(754)=0 THEN GOTO 2040 

RUN 



DATA 162,81 
1,0,96,81,0 
DATA 162,81 
1,0,96,72,0 
DATA 162,64 
3,0,96,53,0 
DATA 162,53 
3,0,96,64,0 
DATA 162,64 
4,0,96,64,0 
DATA 162,64 
4,0,96,72,0 
DATA 162,81 
1,0,96,81,0 
DATA 162,81 
1,0,96,81,0 


,0,162 
,96,81 
,0,162 
,96,72 
, 0 , 162 
, 96,53 
,0,162 
, 96 ,64 
,0,162 
, 96,64 
,0,162 
, 96,72 
,0,162 
,96,81 
, 0,162 
,96,81 


,81,0, 

,0,96, 

,81,0, 

,0,96, 

, fi'4, 0 , 
,0,96, 
, 53, 0 , 
, 0 ,96, 
, 64,0, 
,0,96, 
, 64,0, 
,0,96, 
,81,0, 
, 0 ,96, 
, 81 , 0 , 
,0,96, 


162,81,0,162,81,0,106,31,0,108,8 
81,0,96,81,0,108,81,0,108,81,0 
162,81,0,162,81,0,108,81,0,106,8 
72,0,96,72,0,108,72,0,108,64,0 
162,53,0,162,53,0,108,53,0,108,5 
53,0,96,53,0,108,53,0,108,53,0 
16-c-, , 0,1 62 , 5, 0,1 08,53> , 0 , i 08,5 

72,0,96,72,0,108,31,0,108,81,0 
162,64,0,162,64,0,108,64,0,108,6 
64,0,96,64,0,108,64,0,108,64,0 
162,64,0,162,64,0,108,64,0,108,6 
72,0,96,72,0,108,72,0,108,72,0 
162,81,0,162,SI,0,108,31,0,108,8 
81,0,96,81,0,108,81,0,108,81,0 
162,81,0,162,81,0,108,81,0,108,8 
0,0,96,0,0,108,0,0,103,0,1 


.. ■ . 

Draw the title screen 


GRAPHICS 18 
POKE 754,0 

FOR T =0 TO 11: POSITXON T,5:7 # 6 ; " ^DIAMOND : NEXT T 
FOR T-0 TO 30 STEP 10:SOUND 1,7,0,15:NEXT T:SOUND 1,0,0 

,0 

FOR T=10 TO 1 STEP — 1: POSITION T,5:7 # 6 ; 11 ^.DIAMOND : NEX 
T T 

FOR T=0 TO 15: POSITION T,7:7 # 6 ; " ^.HUNT" s NEXT T 
FOR T -0 TO 30 STEP 10:SOUND 1,T,0,15:NEXT T:SOUND 1,0,0 
,0 
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6040 FOR T=14 TO 1 STEP -1:POSITION T 



*HUNT*":NEXT T 


6050 IF PEEK (754) 00 THEN RETURN 
6060 GOTO 6010 


ChexSum Tables 


5 

= 

209 

240 


10 

= 

513 

250 


20 

= 

617 

500 

ST 

30 

— 

2953 

510 

— 

40 


785 

520 

=r 

50 

SE 

1635 

600 


100 

SS 

678 

1000 


110 

= 

2731 

1010 

sr 

120 

— 

597 

1020 


130 


598 

1030 


140 

~ 

1154 

1035 

= 

150 

= 

1019 

1040 


160 


783 

2000 

— 

170 

= 

572 

2010 

=: 

180 

= 

565 

2020 

— 

190 


1724 

2030 

= 

200 

— 

1959 

2040 


210 

ss 

3915 

2050 

ss 

220 

ss 

3414 

5000 


230 

— 

1057 

5010 



61 1 

5020 

= 

5192 

112 

5030 

= 

5196 

578 

5040 

— 

5212 

534 

5050 


5206 

754 

5060 

— 

5200 

58 

5070 

= 

4973 

326 

6000 

— 

167 

1106 

6005 

ss 

255 

161 

6010 

— 

1738 

irr 

JC'v* 

6015 

— 

1559 

715 

6020 


1988 

58 

6030 

= 

151 1 

1477 

6035 

ss 

1559 

1590 

6040 

— 

1796 

1640 

6050 

ss 

505 

255 

6060 

s= 


2910 




59 




5200 




5201 

TOTAL 

s 

r\ ‘V i m y 
7 -Jy Q .J 1 
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SPACMAN 



CLASSIFICATION: Invader/Evasion 

Collect all of the objects on the screen and avoid the 

heart. Use the I,P,Q and Z keys to move 1 eft,right,up 
down. 

PROGRAMMING SUGGESTIONS 

Increase the speed of the game by resorting to machine code. 


love 

and 
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Program 

Variables 


SCORE 

LEVEL 

LIVES 

X,Y 

A, B 

OBJ 

T 

VA 

UY 

Program 

Structure 

Lines 


Your score. 

The level you are at in the game. 

The number of lives left 

Your player^ coordinates on the screen 

The love hearts X and Y coordinates 

Number of objects collected 

Dummy variables 

Character under love heart 

Character under you 


5 - 80 Initai1ization 

100 - 250 Main loop 

500 ~ 580 Get object 

1000 - 1060 Death 

5000 - 5060 Title screen 
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Listing 



5 GOSUB 5000 

10 SCORE=0:LEVEL=1:LIVES=3 


Initialize display 


20 

30 

40 

50 


60 

70 

80 


GRAPHICS 0:POKE 752,255 
X=39 s Y=21 
A=i:B=l:OBJ=-l 

POSITION 0,22: PRINT 11 A * * ..LEVEL: "; LEVEL; 
SCORE; " ......LIVES: LIVES 


^.SCORE: 


* 

* 


FOR T=0 TO <LEVEL*2+10):POKE 40000+INT(RND<1)*819),84:N 
EXT T 


UA=PEEK(40000+A+B*40>:UY=PEEK <40000+X+Y*40> 
IF UY—84 THEN GOSUB 500 


Main loop 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 


POKE 40000+A+B*40,UA 


A= A+ ( X >A) - (X< A) : B SS B+ <Y >B) - (Y<B> 

UA-PEEK(40000+A+B+40):IF UA-92 THEN GOTO 1000 
POKE 40000+A+B*40„64 
POKE 40000+X+Y*4©,UY 

X = X + < <PEEK(754)=1©) OR (STICK (0)=7) )-( (PEEK 1754 >=13) OR 
(STICK(O)=11)) 

IF X >39 THEN X=0 
IF X<0 THEN X = 39 

Y=Y+(< PEEK(754> =23) OR (STICK <0 >-13) )-(<PEEK <754)=47) 0 
R (STICK(0)=14)) 

IF Y>21 THEN Y = 0 
IF Y<0 THEN Y=21 


U Y=P E E K < 40 0 © 0 + X + Y * 4 0 ) 

POKE 40000+X+Y*40,92 

IF < (A= X > AND (B=Y) ) AND (UAOS4) THEN GOTO 3 000 
IF UY = 84 THEN GOSUB 500 
GOTO 100 


141 






500 

505 


UV=0sDBJ=0Ba+lsSC0RE«SC0RE+25sPOSITION 21,22s? SCORE; 
FOR T-© TO 30 STEP 2:SOUND 1,T,0,9s NEXT TsSOUND 1,0,0,0 


510 IF OBJ< >(LEVEL*2+10) THEN RETURN 
520 GRAPHICS 18 

530 ? #6:? #6:? #6:? #6:? #6; “ A ***WELL A DONE‘ " 

540 FOR T =0 TO 300:NEXT T 
550 GRAPHICS 18 
560 LEVEL—LEVEL+1 

570 ? #6:? #6s? #6:? #6:? #6; “ A ^ A A LEVEL ; LEVEL 

580 FOR T=0 TO 255s SOUND 1, T ,10,10:NEXT T:POP :SOUND 1,0,0, 
0:GOTO 20 


Death 


1000 

1005 


1010 

1020 

1030 

1031 

1032 

1040 

1050 

1060 


LIVES-LIVES-1 

FOR N—0 TO 5:FOR T=255 TO 200 STEP -5:SOUND i„T,10,10:S 
OUND 0,T-200,0,9:NEXT T:NEXT N:SOUND 1,0,0,0sSOUND 0,0, 
0,0 

IF LIVES THEN GOTO 20 
GRAPHICS 18 

? #6:? # 6 :? # 6 :? #6; " * ^ ^YOU *ARE *DEAD. " 

FOR T=0 TO 10:SOUND 1,0,0,0:READ A,B:SOUND 1,A,10,10:FO 
R H —1 TO B:NEXT N:NEXT T:SOUND 1,0,0,0 

DATA 108,80,108,80,108,40,108,80,91,80,96,40,96,80,108, 

40,108,80,114,40,108,160 

POKE 754,0 

IF PEEK(754)=0 THEN GOTO 1050 
RUN 


Title screen 


5000 GRAPHICS 0:SETCOLOR 2,12,4 
5010 POSITION 0,5 
5015 POKE 754,0 
5020 ? " *.***"? 


Graphics for title 


5030 


d*. dt.. S A. dt. d*. S S £ J*. S—H .A. it iL i 

S * * ^ i ^ 6 «*.Ht-* § 8 i ^ i * E ^ s ^ l" 
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5040 ? :? :SETCOLOR 1,0,INT(RND(1)*15) 

5045 BOUND 0,1NT (RND(1)*255 > ,0,10 

5046 FOR T—0 TO 255 STEP 16 

5047 SOUND 1,7,10,10 

5048 NEXT T 

5050 IF PEEK(754)>0 THEN SOUND 0,0,0,0:SOUND 1,0,0,0:RETURN 
5060 GOTO 5020 


ChexSum Tables 


5 


193 

210 


1030 

1031 

T" 

3165 

10 

— 

986 

220 

= 

894 

1032 

=s 

3804 

20 

— 

513 

230 

= 

1609 

1040 

3SS 

255 

30 

= 

776 

240 

~ 

559 

1050 

SC 

665 

40 

5= 

1119 

250 

= 

1 12 

i860 

ss 

59 

50 

SC 

2565 

500 

= 

2019 

5000 

sc 

480 

60 

= 

2015 

505 

= 

1551 

5810 

sc 

182 

70 

as 

2118 

510 

as 

750 

5015 

c= 

255 

80 

— 

559 

520 

— 

167 

5020 

sc 

230 

100 

— 

811 

530 

=s 

1958 

5030 

sc 

4248 

110 

= 

2501 

540 


524 

5040 

= 

947 

1 20 


1681 

550 

= 

167 

5045 

SC 

885 

130 


852 

560 

sc 

495 

5046 

sc 

542 

140 

— 

808 

570 

=s 

1843 

5047 

sc 

6 

w f 

150 

=: 

2649 

580 

— 

1910 

5048 

sc 

167 

160 

= 

626 

1000 

= 

498 

5050 

c= 

1151 

170 

sc 

625 

1085 

sc 

3601 

5060 

sc 

-'"J “T 

JL. -2* 

180 

= 

2737 

1018 

— 

r-j -jr 

jL. -2* 




190 

= 

604 

1020 

~z 

167 




200 

s: 

603 

1038 

=s 

1848 

TOTAL 

sc 

6515 
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MAZING 



CLASSIFICATION: Evasion 

Move your man around the screen with joystick 1. You must eat 
all of the asterisks. When you have eaten all of the asterisks 
you will move onto the next level. A nasty little beastie will 

try to eat you while you are moving round the board. 
Beware!!!! 

PROGRAMMING SUGGESTIONS 

Increase the number of nasties moving round the screen and add 
music to the background to make the game more interesting. 
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Program 


Variables 


BDIR 


Beast direction 

BPOS 


Beast position 

BX 


Beast X position 

BY 


Beast Y position 

FLAGS 


Sound flag 

HITFLAG 


Indicates a hit 

LEVEL 


Current level 

M$ 


Holds the maze 

MAN 


CHR$ code for man 

NUMMEN 


Number of men 

OLDB 


Beasts old position 

OLDCHR 


Character under beast 

OLDPLACE 

Mans old screen position 

PLACE 


Mans position on screen 

POSH 


Mans X position 

POSV 


Mans Y position 

RAND 


Where to PEEK for a random number 

SCREEN 


Start of video RAM 

Program 


Structure 


10 


Cursor off and set margins 

20 


Jump to initialization 

100 - 

212 

Move man 

1000 - 

1500 

Move beastie 

2000 - 

2030 

Put man on board 

3000 


Hit something 

3010 - 

3080 

Update condition 

3100 - 

3230 

Hit the beastie 

3500 - 

3580 

All the men are gone 

4000 - 

4040 

End of the game 

9000 - 

9330 

Put maze level into M$ 

9500 - 

9520 

Convert maze to screen format 

9530 - 

9590 

Put the asterisks into maze 

9600 - 

9690 

Draw the maze 

10001 - 

10024 

Data for maze one 

10051 - 

10074 

Data for maze two 

10100 - 

10124 

Data for maze three 

10151 - 

10174 

Data for maze four 

20000 - 

20110 

Initialize the subroutines 
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Listing 


1 REM. NOTE : LAST LINE IN EACH DATA BLOCK IS 1 

CHARACTER SHORTER THAN THE REST . 


10 POKE 752,1:POKE 82,0:POKE 83,39 

20 GOTO 20000 

100 TIME=TIME+1:PLACE=SCREEN+POSH+F*OSV*40:OLBPLACE=PLACE:PO 
KE 77,0 

110 Z=STICK<0):IF FLAGS THEN SOUND 0,FLAGS,10,12:FLAGS=FLA6 
S-5:IF FLAGSC20 THEN FLAGS=0 
120 IF FLAGS=0 THEN SOUND 0,255,10,12 

130 ON Z GOTO 1000,1000,1000,1000,190,180,140,1000,200,210, 

150,1000,160,170,1000 

140 IF PEEK (FLACE+1)0128 THEN P0SH=P0SH+1 

141 GOTO 1000 

150 IF PEEK < PLACE-1 >0128 THEN P0SH«P0SH-1 

151 GOTO 1000 

160 IF PEEK(PLACE+40> < >128 THEN POSV^POSV+l 

161 GOTO 1000 

170 IF PEEK(PLACE-40)0128 THEN POSV=POSV-1 

171 GOTO 1000 

1B0 IF PEEK(PLACE-39)0128 THEN PQSV=POSV—1:POSH—POSH+1:GOT 

0 1000 

181 IF PEEK (PLACE-40) < >128 THEN POSM—F'OSV-1 : GOTO 1000 

182 IF PEEK (PLACE+1) 0128 THEN P05H=P0SH+1 

183 GOTO 1000 

190 IF PEEK (FLACE+41) 0128 THEN POSV=POSV+1:POSH*POSH+1:GOT 
O 1000 

191 IF PEEK (PL.ACE+40) < > 128 THEN POSV-POSV+ 1: GOTO 1000 

192 IF PEEK(PLACE+i)0128 THEN P0SH=P0SH+1 

193 GOTO 1000 

200 IF PEEK(PLACE+39)<>128 THEN POSV=POSV+1:POSH=POSH-1:GOT 
O 1000 

201 IF PEEK(PLACE-1)0128 THEN POSH«POSH—1:GOTO 1000 

202 IF PEEK(PLACE+40> < >128 THEN P0SV=P0SV+1:GOTO 1000 

203 GOTO 1000 

210 IF PEEK(PLACE-41><>128 THEN POSH=PQSH—1:PQSV=POSV—1:GOT 
0 1000 

211 IF PEEK (PLACE-1 >0128 THEN POSH=POSH-1: GOTO 1000 

212 IF PEEK <PLACE-40)< >128 THEN POSV=POSV-1:GOTO 1000 


Move beastie 


1000 T=BP03—SCREEN 

1210 BY=INT(T/40>:BX=T-40*BY 

1220 OLDB—BPOS 

1230 IF ABS(BD1R)=1 THEN GOTO 1270 

1240 T-SBN (POSH—BX ) : IF T AND PEEK (BPOS+-T) < >128 AND PEEK (RAND 
)>220 THEN 1380 

1250 IF T AND PEEK(BPOS+T)0128 THEN BDIR=T:GOTO 1450 
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1260 GOTO 1290 

1270 T=40*SGN(FOSV-BY):IF T AND PEEK (BPOS+T > 0128 AND PEEK<R 
AND)>220 THEN 1380 

1280 IF T AND PEEK(BPOS+T)<>128 THEN BDIR-T:GOTO 1450 
1290 IF PEEK(BPOS+BDIR)0128 THEN GOTO 1450 
1300 T=PEEK(RAND)>127 
1310 IF T THEN GOTO 1340 
1320 T=SGN(POSH-BX) 

1330 IF T AND PEEK<BPOS+T)O128 THEN BD1'R=T; GOTO 1450 
1340 T=40*SGN(POSV-BY) 

1350 IF T AND PEEK(BPOS+TX>128 THEN BDIR=T: GOTO 1450 
1360 T=SBN(HPOS-BX) 

1370 IF T AND PEEK(BPOS+T)<>128 THEN BDIR=T:GOTO 1450 
1380 T=INT(RND(CO *4) 

1390 ON T GOTO 1410,1420,1430 

1400 IF PEEK(BPOS-40)0128 THEN BDIR=-40:GOTO 1450 
1410 IF PEEK(BPOS+40)<>128 THEN BDIR=40:GOTO 1450 
1420 IF PEEK(BPOS-1)0128 THEN BDIR=-i: GOTO 1450 
1430 IF PEEK (BF‘OS+1) 0128 THEN BDIR—1: GOTO 1450 
1440 GOTO 1400 
1450 BF‘OS=BPOS+BD IR 
1460 POKE OLDB,OLDCHR 
1470 OLDCHR=PEEK(BROS) 

1480 POKE BF‘OS , THEM 
1490 HITFLAG=(OLDCHR—NAN) 

1500 IF HITFLAG THEN 3100 



2000 

2010 

2020 

2030 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 


POKE OLDPLACE.0:PLACE=SCREEN+POSH+POSV*40 
T—PEEK(PLACE)sIF T THEN 3000 
POKE PLACE,MAN 
GOTO 100 

IF TO 10 THEN 3100 

TOTAL—TOTAL—1s T=*-F'LACE-SCREEN+j:NT(T,T)=" " 

FL.A6S-60: IF TOTAL THEN 100 

FOR T=1 TO 30:? :NEXT T 

IF LEVEL=3 THEN 4000 

GRAPHICS 2+16 


LEVEL = LEVEL+1sPOSITION 3,5:? #6; "LEVEL , 
ON 3,8s? #6;NUMMEN;"^REMAINING“ 

FOR T=100 TO 0 STEP -1:SOUND 0,T,i?„15: 
55,10,12 


/'; LEVEL+1: POSIT I 
NEXT TsSOUND 0,2 


GOTO 20070 
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Hit the beastie 


3100 X=POSH+POSV*40+ SCREEN 

3110 FOR T-255 TO 0 STEP -1 

3120 POKE X,T:SOUND 0,T,10,12 

3130 NEXT T 

3140 NUIi!1EN=NUMNEN-1 

3150 IF NOT NUMMEN THEN 3500 

3160 GRAPHICS 2+16:? #6; NUMMEN; " A ^.REMAINING 1 ' 

3170 P0SH=25:PQSV=9 

3180 T1=0:T2=0:FOR T =0 TO 255s SOUND 0,T,10,12:SOUND 1 , 71,10 

12:SOUND 2,T2,10,12 
3190 Tl=Tl+2sIF T1>255 THEN T1=0 
3200 T2=T2+3:IF T2>255 THEN T2=0 

3210 OLDS-T:NEXT T 
3220 GOSUB 9600 
3230 GOTO 100 


All the men are gone 


3500 

3510 

3520 

3530 

3540 

3550 

3580 


GRAPHICS 2+16: POSITION 2,5:? #6; " ALL *MEN ^DEAD ! 1 " : FOR T~ 
1 TO 255 STEP 4 

SOUND 1,0,0,0:SOUND 2,0,0,0:FOR Tl=l TO 253 STEP T 
SOUND 0,T1,10,12 
NEXT T1 
NEXT T 

SOUND 0,0,0,0 
GOTO 4020 


End of the game 


4000 

4010 

4020 

4030 

4040 


? ” ALL ^LEVELS ^COMPLETED ! " 

? :? “SCORETIME 

? : ? : ? "PRESS *<RETURN? A FOR * ANOTHER 
INPUT X$ 

RUN 


*SAME 


n 


Put maze level into M$ 


9000 RESTORE 10000+LEVEL*50+1 
9010 POSH-25:PQSV=9 
9100 FOR T=0 TO 23 
9200 READ T* 
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m <T *40+1,1*40+4©)»T$ 
NEXT T 

GOSUB 9500:GOSUB 960© 
RETURN 


Convert maze to screen format 


950© FOR T=i TO LEN<M$> 

9510 IF <T,T> THEN MS (T , T) =CHR$ (160) 

9520 NEXT T 



TOT AL=30 

FOR T=1 TO TOTAL 

Z=INT<RND(0)*959+1):IF <Z.Z)<>" *" THEN 956© 
M$<Z , Z) « M *" 

NEXT T 
RETURN 



FOR T—1 TO 20:? :NEXT T 

? nt; 

POKE SCREEN+959,12S 
BP0S=SCREEN+882:OLDCHR-PEEK(BROS) 
BDIR=1 
RETURN 



10001 DATA **************************************** 


10002 

DATA 

* 

* 


* 








* 

10003 

DATA 

* 

* * 

* 

* 

****** 

********* ****** 

* 

* ** 

10004 

DATA 

* 

* * 

* 

* 

* 

* 




* 


* 

10005 

DATA 

* 

* 

* 


* * * 

* 

***** ***** 

** 


* * * 

10006 

DATA 

* 

*** 

*** 

******* 

* 

* 


* 

* 


* 

10007 

DATA 

* 




* 

* 

* 

*** *** 

* 

* 

* 

* ** 

10008 

DATA 

*** ***** 

* ***** 

* 

* 

* * 

* 

* 

* 

* 

10009 

DATA 

* 




* 

* 

* 

* *** * 

* 


**** * 

10010 

DATA 

* 

*** 

*** 

*** *** 

* 


* * * 


* 


* 

10011 

DATA 

* 

* 


* 

* 

* 

* 

* *** * 

* 

* 

* 

* ** 

10012 

DATA 

* 

* * 

* 

* 

*** * *** 

* 

* * 

* 

* 


* 

10013 

DATA 

* 

* * 

* 

* 

* 


* 

******* 

* 

** 


*** * 

10014 

DATA 

* 

* 


* 

*** * *** 

* 


* 

* 


* * 


9600 

9610 

9620 

9640 

9670 

9690 


9530 

9540 

9560 

9570 

9580 

9590 


9300 

9310 

9320 

9330 
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10015 

DATA 

* 

*+.•* *** 


***** ***** * 

** 

100) 1 6 

DATA 

*- 

******* 

**** * * * * **** 

*** 

10017 

DATA 

** 

*** * 

* 

* 

* * * * * 

* 

1001 a 

DATA 

•* 

* * 


* * 

* ************* * * 

*** 

10019 

DATA 

* 

** * * 

* 

* * 

***** * * * * 

* 

10020 

DATA 

* 

* * 

* 


* * * * * * ***** 

* * 

10021 

DATA 

* 

* *** 

**** *** 

** * * * 

* * 

10022 

DATA 

* 

*** 

* 

* 

***************** *** * 

10023 

DATA 

* 

** 


* 

* 

* 

10024 

DATA 

*■ * **** **•* * ** * ** ******* * * ** * * * ** * * * * * ** * 


Data for maze two 


10051 

DATA 

*********************** ***************** 

10052 

DATA 

* 





* 




* 

* * 

* 

10053 

DATA 

* 

* 

* 

* 

***** * * 

* 

* 

* 

* 

* * * ****** * 

10054 

DATA 

* 

* 

* 

* 

* 

* * 

* 

* 

* 

* 

* * * 

* 

10055 

DATA 

* 

* 

* 

* 

* 

***** * 

* 

* 

* 

* 

* * ** ******* 

10056 

DATA 

* 

* 

* 

* 

* 

* * 

* 

* 

* 


* * 

* 

10057 

DATA 

* 

* 

* 

* 

* 

* *** * 

* 

* 

* 

***** * ****** * 

10058 

DATA 

* 

* 

* 

* 

* 

* 

* 


* 


* 

* 

10059 

DATA 

* 

* 

* 

* 


* *** * 

* 

* 

* 

*** * ******** * 

10060 

DATA 

* 

* 

* 

* 

* 

* * 

* 

* 

* 

* 

* * 

* 

10061 

DATA 

* 

* 

* 


* 

*** * 

* 

* 

* 

* 

* * ********** 

10062 

DATA 

* 

* 

* 

* 

* 

* * * 

*** 

* 


* * * 

* 

10063 

DATA 

* 

* 

* 

* 


* * * * 



* 

***** *** * 

** * 

10064 

DATA 

* 

* 

* 

* 

* 

* * * **** 

** 

* 

* * 

* * 

10065 

DATA 

* 

* 

* 

* 

* 

* * 




* 

***** * * 

* ** 

10066 

DATA 

*■ 

* 

* 

* 

* 

****** * 

* 

***** 

* * * 

* * 

10067 

DATA 

* 





* 

* 




* * 

* ** 

10068 

DATA 

****** 

**** *** *** 

*************** 

* * 

10069 

DATA 

* 





* 



* 


* * ** 

** * 

10070 

DATA 

* 

************* * 

*** 

* 

** 

* * * 

* 

10071 

DATA 

* 





* 



* 


* * * * ***** 

10072 

DATA 

********* 

********* 

* 

****** * * 

* * 

10073 

DATA 








* 



* *** 

* 

10074 

DATA 

*************************************** 


Data for maze three 


10101 DATA **************************************** 


10102 

DATA 

* 


* 



* 


* 


* * 

* 

10103 

DATA 

* * 

** * 

* * 

*** 

* 

*** 

* 

* 

** * * 

* 

10104 

DATA 

* ** 

* * 

***** 

* 

* 

* 

* 

* 

********** 

* 

10105 

DATA 

* 

* 



* 


** 


* 

* * 

* 

10106 

DATA 

***** 

**** 

• **** 

**** 

**** 

* 

** ******* 

10107 

DATA 

* 








****** 

* 

10108 

DATA 

* *** 

*** 

*** 

*** 

*** *** 


******* 

* 

10109 

DATA 

* 







******** 

* 

10110 

DATA 

*** * 

* * 

* * 

* 

* 

* 

*** 

* 


******* 

10111 

DATA 

* 






* 

**** 

***** 

* 

10112 

DATA 

* * * 

* * 

* * 

* 

* 

* 

* * 



*** 

* 
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10113 

DATA 

* 






******** * * 

101 14 

DATA 

* 

* 

* 

* 

* * * 

* * * * * 

* 

* ******* 

10115 

DATA 

* 






* ** 

* * * 

10116 

DATA 

* 

* 

* 

* 

* * * 

* * * * * 

* * 

* *** *** * 

10117 

DATA 

* 






** * 

* * * 

10118 

DATA 

*** 

** 

** ** ** ** ** *** * 

* * * *** * 

10119 

DATA 

* 






* ** 

* * * * 

10120 

DATA 

* 

** 

** 

** ** 

** ** ** 

** * 

* * * ***** 

10121 

DATA 

* 






*** * 

* * * * 

10122 

DATA 

* 

*** 

*** *** 

*** *** ** * 

* * ***** * 

10123 

DATA 

* 






* 

* * 

10124 

DATA 

*************************************** 








Data for maze four 

10151 

DATA 

**************************************** 

10152 

DATA 

* 


* 


* * 

* 

* « 

* * * 

10153 

DATA 

* 

* 

* 

* 

* * * 

* * * * * 

* * * 

* * * ** 

10154 

DATA 

* 

* 

* 

* 

* * * 

* * * * * 

* * 

* *** * 

10155 

DATA 

* 


* 


* * 

* 

* ********* ** * 

10156 

DATA 

** **** 

** *** ********** * 

* * 

10157 

DATA 

* 


* 


* * 

* * * 

* ***** * * ** 

10158 

DATA 

* 

* 

* 

**** *** *** 

* ** 

***** * * 

10159 

DATA 

* 

* 

* 


* 

* * 

**** * 

* *** ** 

10160 

DATA 

* 

* 

* 

* 

* ** ********* 

¥ 

* * * 

10161 

DATA 

* 

* 

* 

* 

* * * 

* * 

*********** * * 

10162 

DATA 

* 

* 

* 

* 

* * ** *** * * 

* * 

******* 

10163 

DATA 

* 

* 

* 


* * * 

* * * 

* * 

***** * * 

10164 

DATA 

* 


* 

* 

* * * 

**** * *** * * 

* * * * * 

10165 

DATA 

* 

* 

* 

* 

* * * 

* * 

* * * 

* * 

10166 

DATA 

* 


* 

* 

* * * 

* * * 

* * * 

****** 

10167 

DATA 

*** 

* 

* 

* * * 

** ** ** 

* * * 

* * * * 

10168 

DATA 

* 




* * * 

* * * 

* * * 

* * * *** 

10169 

DATA 

*** 

* 

* 

* * ** * * * * 

* * * 

* * * * * 

10170 

DATA 

* 




* * * * * 

* * * 

* * * * * 

10171 

DATA 

*** 

** 

* *** * * * * * 

* * * 

* * * * * 

10172 

DATA 

* 

* 

* 


* ****** 

* * * 

* * * * * 

10173 

DATA 

* 


* 

** * * * * 

* 

* * * 

10174 

DATA 

*************************************** 


Initialize the subroutines 


20000 DIM m- (960) ,T* <40 > ,X$ < 9) 

20020 LEVEL—0:TIME=0:SCREEN=40000:OLDS-0:RAND=53770 

20030 GRAPHICS 2+16 

20040 POSITION 5,10 

20050 ? #6; "JUST *.A ^.TICK- " 

20060 NUMMEN=3 
20070 GOSUB 9000 
20080 MAN=123 
20O90 THEM=88 
20110 GOTO 100 
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ChexSum Tables 


10 

—s 

1 1 18 

1460 

SS 

20 

= 

114 

1470 

— 

100 

— 

2246 

1480 

= 

110 

SB 

2530 

1490 

r= 

120 

— 

770 

1500 

ss 

130 

— 

2416 

2000 

ss 

140 

S= 

1164 

2010 

— 

141 

— 

127 

2020 

3= 

150 

=B 

1166 

2030 

St 

151 

SB 

127 

3000 

3= 

160 

= 

1229 

3010 

SS 

161 

=S 

127 

3020 

S3 

170 

2= 

1231 

3030 

SS 

171 

S= 

127 

3040 

ss 

180 

= 

1980 

3050 

S3 

181 

ss 

1406 

3060 

zz 

182 

SS 

1164 

3070 

S3 

183 

— 

127 

3080 

— 

190 

S= 

1986 

3100 

= 

191 

=s 

1404 

3110 

S3 

192 

SB 

1164 

3120 

=s 

193 

= 

127 

3130 

3= 

200 

= 

1979 

3140 

— 

201 

= 

1341 

31 50 

SS 

202 

SB 

1404 

3160 

SS 

203 

S= 

127 

3170 

S3 

210 

SB 

1989 

3180 

S3 

211 

= 

1341 

3190 

SS 

i +L 

=B 

1406 

3200 

SS 

1000 

SE 

576 

3210 

ss 

1210 

S= 

1561 

3220 

S3 

1220 

=B 

412 

3230 

S3 

1230 

— 

745 

3500 

SS 

1240 

SS 

2417 

3510 

= 

1250 

=s 

1528 

3520 

SS 

1260 

ST 

273 

3530 

ss 

1270 

— 

2603 

3540 

3= 

1280 

~ 

1528 

3550 

SS 

1290 

S= 

926 

3580 

ss 

1300 

ss: 

/ Z7 

4000 

ss 

1310 

SS 

380 

4010 

ss 

1320 

ss 

759 

4020 

ss 

1330 

ss 

1528 

4030 

ss 

1340 

ss: 

937 

4040 

ss 

1350 

ss 

1528 

9000 

3= 

1360 

SB 

770 

9010 

ss 

1370 

ss 

.1 «_J ■£,. O 

9100 

ss 

1380 

ss 

744 

9200 

ss 

1390 

ss 

639 

9300 

ss 

1400 

ss 

1442 

9310 

ss 

1410 

SB 

1385 

9320 

ss 

1420 

ss 

1316 

9330 

ss 

1430 

Ss 

1259 

9500 

ss 

1440 

IS 

131 

9510 

ss 

1450 

ss 

594 

9520 

ss 


369 

9530 

ss 

378 

583 

9540 


445 

367 

9560 

= 

2092 

700 

9570 

ss 

778 

337 

9580 

ss 

166 

1 184 

9590 

ss 

58 

905 

9600 

= 

704 

“T / '■? 

%•»* C5 ■>■■■ 

9610 

ss 

238 

112 

9620 

— 

543 

443 

9640 

= 

1269 

2014 

9670 

— 

348 

730 

9690 

ss 

58 

720 

10001 

ss: 

1836 

470 

10002 

= 

1476 

282 

10003 

ss 

1736 

3347 

10004 

ss 

1526 

1836 

10005 

ss 

1 656 

226 

10006 

sr 

1626 

948 

10007 

ss 

1596 

574 

10008 

— 

1656 

864 

10009 

ss 

1586 

1 66 

10010 

ss 

1636 

wJ «jS- 

10011 

= 

1606 

385 

10012 

— 

1616 

1457 

10013 

ss 

1646 

748 

10014 

ss 

1586 

6ntrn 

«£, / w 4 

10015 

ss 

1636 

1310 

10016 

rs 

1 666 

1315 

10017 

ss 

1576 

594 

100 IB 

ss 

1676 


10019 

— 

1616 

1 12 

10020 

ss 

1606 

2378 

10021 

ss 

1 626 

1318 

10022 

SS 

1706 

4B9 

10023 

Ss 

1496 

190 

10024 

ss 

1794 

166 

10051 

ss 

1836 

182 

10052 

= 

1496 

207 

10053 

ss 

1686 

1540 

0054 

ss 

1586 

791 

10055 

— 

1696 

2451 

10056 

ss 

1566 

186 

10057 

ss 

1696 

59 

10058 

ss 

1536 

641 

10059 

ss 

1686 

748 

1 0060 

ss 

1576 

362 

10061 

ss 

1676 

219 

10062 

ss 

1596 

1520 

10063 

ss 

1 646 

166 

10064 

ss 

1626 

546 

10065 

SS 

1616 

58 

10066 

ss 

1666 

637 

10067 

ss 

1516 

1810 

10068 

ss 

1766 

166 

10069 

ss 

1536 
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10070 = 1686 

10071 - 1556 

10072 = 1726 

10073 « 1506 

10074 « 1794 

10101 = 1836 

10102 = 1506 

10103 = 1646 

10104 = 1696 

10105 = 1526 

10106 « 1746 

10107 * 1516 

10108 = 1706 

10109 = 1536 

10110 = 1656 

10111 = 1556 

10112 » 1596 

10113 = 1546 

10114 « 1646 

10115 - 1506 

10116 = 1656 

10117 = 1506 

10118 « 1696 


10119 = 1516 

10120 = 1696 

10121 = 1526 

10122 « 1706 

10123 a 1476 

10124 a 1794 

10151 a 1836 

10152 = 1536 

10153 = 1636 

10154 a 1626 

10155 a 1616 

10156 = 1676 

10157 a 1606 

10158 a 1666 

10159 a 1606 

10160 = 1636 

10161 a 1656 

10162 = 1656 

10163 a 1616 

10164 = 1646 

10165 a 1576 

10166 = 1616 
10167 = 1646 


10168 a 1596 

10169 a 1646 

10170 = 1576 

10171 a 1656 

10172 = 1616 

10173 = 1556 

10174 = 1794 

20000 a 1280 

20020 = 1895 
20030 = 282 
20040 a 262 
20050 = 1022 
20060 a 359 
20070 a 257 
20080 = 390 
20090 = 487 
20110 = 112 


TOTAL = 275698 
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CLASSIFICATION: Skill 

You must move your worm around the screen for as long as 
possible. When a number appears, run over it and the tail of 
your worm will grow longer. The joystick controls the 
direction of the worms head and pressing the fire button sends 
the worm in that direction. If your head touches your body 
then game is over. The objective of this game is to live as 
long as possible and make the worm grow to the maximium length. 

PROGRAMMING SUGGESTIONS 

Increase the speed that the worm moves around the board and put 
fatal obstacles in its path. 
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Program 

Variables 

AMX( ) 

Amounts to move X 

amyQ 

Amounts to move Y 

BODY 

Screen code for body 

CHANGE 

Flag position change 

DROP 

Number of times to grow 

FRONT 

Screen codes for arrows 

HEAD 

Position of head in array 

POS 

Screen position of head 

POST 

Used to put number on screen 

SCREEN 

Start of video ram 

TAIL 

Position of tail in array 

TYPE 

Direction indicater 

x() 

X coordinates of worm 

Y( ) 

Y coordinates of worm 

Program 

Structure 

10 - 

Jump initialize 

100 - 200 

Main loop 

5000 - 5000 

Joystick routine 

5200 - 5320 

Move routine 

6000 — 6050 

Random number to screen 

10000 - 10070 

End of game 

20000 - 20170 

Initialize 
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Listing 


10 

100 

110 

120 

130 


140 

150 

160 

170 

180 

181 

190 

200 

210 

220 


POKE 752,2:7 :GOTO 20000 

POKE 77,0:ZQ-X(HEAD)+40*Y(HEAD)+SCREEN:GOSUB 5000 
POS=X(HEAD)+ 40*Y(HEAD)+SCREEN 
Q-PEEK(POS):IF Q=BODY THEN 10000 

IF Q>16 AND GK26 THEN Q=Q-16:DROP=DROP+Q:SCORE=SCORE+Q: 
TEST=0 

IF CHANGE AND NOT DROP THEN TAIL=TAIL~1:IF TAILC0 THEN 
TAIL.-970 

IF CHANGE AND DROP THEN DROP-DROP-1 
POKE X(TAIL)+40*Y(TAIL)+SCREEN,0 
Z=HEAD+1:IF Z>970 THEN Z=0 

IF HEADC>TAIL THEN POKE X(Z)+40*Y(Z)+SCREEN,BODY 

IF HEAD=TAIL THEN POKE ZQ,0 

POKE X(HEAD)+40*Y(HEAD)+SCREEN,FRONT(TYPE) 

IF NOT TEST THEN GOSUB 6000 
POSITION 10,23:7 “SCORE A SCORE;" A ; 

GOTO 100 


Joystick routine 


5000 S~STICK<0> 

5010 IF S=15 THEN 5200 

5020 ON S GOTO 5200,5200,5200,5200,5200,5200,5040,5200,5200, 
5200,5060,5200,5050,5030,5200 
5030 TYPE-0: GOTO 5200 
5040 TYPE=3:GOTO 5200 
5050 TYPE=1:GOTO 5200 
5060 TYPE=2:GOTO 5200 


Move routine 


5200 CHANGE=0 

5210 IF STRIG(0) THEN FLAG*0:REPT=0:RETURN 
5220 IF REPT THEN REPT=REPT-1:RETURN 
5230 X=X(HEAD):Y-Y(HEAD) 

5240 X1—AMX(TYPE):Y1=AMY(TYPE) 

5250 X 1 = X 1 + X :IF X1<0 OR X1>39 THEN RETURN 

5260 V1=Y1+Y:IF Y1<0 OR Y1>22 THEN RETURN 

5270 CHANGE—1 

5280 HEAD=HEAD~1 

5290 IF HEADC0 THEN HEAD=970 

5300 X(HEAD > = X1:Y(HEAD)»Y1 

5310 IF NOT FLAG THEN REPT=6:FLAG-1 

5320 RETURN 
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Random number to screen 

— 


6000 Z = INT(RND(0)*9)+17:IF TAIL=HEAD AND Z = 17 THEN 6000 

60 10 POST«I NT ( RND (0)*920)+SCREEN 

6020 IF PEEK(POST) THEN 6010 

6030 TEST=1 

6040 POKE POST,Z 

6050 RETURN 


End of game 


10000 GRAPHICS 2+16 
10010 ? #6; "SCORE ; SCORE 
10020 ? #6 
10030 ? #6 

10040 ? #6; "PRESS *<RETURN> M 
10050 POKE 754,255 

10060 IF PEEK (754) 012 THEN 10060 
10070 CLR :GOTO 10 


Initialize 


20000 BODY-84 
20010 DIN FRONT(3) 

20020 FRONT <0>=92:FRONT(1)=93:FRONT(2)=94:FRONT(3)=95 
20040 DIN AMX(3),ANY(3) 

20050 ANX(0)=0:ANY(0)=—1 
20060 ANX(1)=0:ANY(1)=1 
20070 ANX(2)=—1:ANY(2)=0 
20080 ANX(3)=1:ANY(3)=0 
20090 TYPE=0 
20100 3CORE=0 
20110 TEST=0 
20120 SCREEN=40000 
20130 DIM X(970),Y(970) 

20140 X(0)=19:Y(0)=12 

20150 HEAD=0:TAIL=0:DROP=0:REPEAT-0:TYPE=0 
20160 ? CHR$ : ( 125) 

20170 GOTO 100 
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ChexSum Tables 


10 

= 

549 

5218 


100 

— 

1972 

5220 

=Z 

1 10 

= 

1406 

5230 

— 

120 

as 

1856 

5240 

ZZ 

130 


2845 

5250 


140 

= 

1 / 4 4 

5260 


150 

— 

916 

5278 

= 

160 

= 

1249 

5280 

ZZ 

170 

— 

1292 

5290 

zz 

180 

— 

1763 

5300 

zz 

181 

— 

596 

5310 

rz 

190 

— 

1616 

5328 

zz 

200 

— 

447 

£•>83® 

zz 

210 

— 

1174 

6818 

zz 

220 

— 

112 

6020 

z= 

5000 

— 

471 

6030 

as: 

5010 

— 

502 

6048 

= 

5020 

— 

3174 

685© 

zz 

5030 

— 

502 

18000 

zr 

5040 

= 

569 

10010 

zz 

5850 

— 

567 

18020 

rz: 

5060 

— 

568 

10838 

zz 

5200 


o 

4. C) 

10040 

=: 


976 

10050 

zz 

407 

835 

i 00 6® 

ZZ 

701 

1324 

10070 

— 

180 

1397 

20000 

zz 

474 

■1 Tc-c. 

J. 

20010 

zz 

374 

1 341 

20020 

=z 

O Q T *“> 
*L. O ■_« jL. 

347 

20040 


742 

514 

20050 

sz 

979 

704 

20060 

zz 

1054 

1329 

20070 

=z 

mi 

989 

20080 


105S 

58 

2009® 

zr. 

286 

1837 

20100 

zz 

280 

985 

20110 

sz 

281 

5B0 

20120 

zz 

345 

346 

2013® 


938 

38 J 

20140 

=: 

988 

58 

2015® 

zz 

1590 

n 

4> W JZ. 

20160 

” 

343 

853 

20170 

= 

112 

174 

174 

h nc-cr 

1 

TOTAL 

— 

5854 
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PATROL CAR 



CLASSIFICATION: Arcade 

Move your little patrol car along the ground and shoot down the 
hostile invaders and their missiles. Use the joystick to move 
left and right and the fire button to launch missiles. The 
aliens can drop nasties on you so beware!!!! 

PROGRAMMING SUGGESTIONS 

Add obstacles to your patrol cars path to make hitting the 
alien more difficult. Make it possible for several invaders to 
attack you at the same time. 
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Program 

Variables 

xi 

Y1 

A 

X3 

Y3 

X2 

Y2 

X4 

Y4 


X position of patrol car 

Y position of patrol car 
Joystick variable 

X position of alien 

Y position of alien 

X position of his missile 

Y position of his missile 
X position of your missile 

Y position of your missile 


Program 

Structure 

" ~ 85 Set up players and draw screen 

100 - 130 Data for shapes 

1060 - 1560 Main loop 

2000 - 2210 Move the patrol car 

3000 - 3010 Move the alien 

4000 - 4499 Move his missile 

5000 — 5999 Move your missile 

7000 - 7999 Collision checking 
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Listing 


5 FOR I =33792 TO 33792+1 (323: POKE I,0:NEXT I 

6 FOR 1=30720 TO 30796:READ A:POKE I.AsNEXT I 

7 FOR 1=28672 TO 29050:READ A:POKE I,A:NEXT I 

10 POKE 106,128 

20 PM=PEEK(106):PMBASE*PM*256 

30 GRAPHICS 1 

40 POKE 559,62 

50 POKE 53277,3 

60 POKE 54279,PM 

70 POKE 53256,2 

80 POKE 704,77-.POKE 705,77: POKE 706,77 

85 POKE 707,77 

100 DATA 0,0,112,136,135,255,102,102,0,0,0,0,0,0,0,0,0,0,0, 

0 

110 DATA 16,56,56,56,124,108,0,0,0,0,0,0,0,0,0,0,8,0,0,0,0, 

0,0 

120 DATA 128,192,248,228,226,255,255,124,0,8,0,0,0,0,0,0,0 

130 DATA 16,56,56,56,124,108,0,8,0,©,0,0,0,8,'8,0,0 

200 POKE 53256,1 

210 POKE 53257,2 

220 POKE 53258,1 

230 POKE 53259,2 

500 X3=0:GOSUB 4500:Y3=Y 

505 X1=50:Y1=153 

1030 A=USR(28672,XI,Y1,X2,Y2,X3,Y3,X4,Y4> 

1060 POSITION 0,0: PRINT #6; "HITS: " ; HI;*BAN6S: " ; BA; " A 5 

1500 GOSUB 2000:REM PATROL CAR 

1510 GOSUB 3000:REM ALIEN 

1520 GOSUB 4000:REM HIS MISSILE 

1530 GOSUB 5000:REM YOUR MISSILE 

1545 A=USR(112*256,X1,Y1,X 2,Y 2,X 3,Y3,X4,Y4) 

1550 GOSUB 7000:REM CHECK 
1560 GOTO 1060 
2000 REM 

2010 POKE 53278,0:A=STICK(1>:IF A=15 THEN RETURN 

2020 IF A=11 THEN GOSUB 2100 

2030 IF A=7 THEN GOSUB 2200 

2040 IF STRIG(1)=0 THEN 5500:RETURN 

2050 RETURN 

2100 REM 

2105 IF XI<3 THEN RETURN 
2110 X1=X1-4 sRETURN 
2200 REM 

2205 IF XI>140 THEN RETURN 
2210 X1 = X1+4:RETURN 
3000 REM 

3005 IF X3>163 THEN GOSUB 4500:Y3=Y:X3=0:RETURN 
3010 X3=X3+5:RETURN 
4000 REM 

4005 IF IT1=0 THEN GOSUB 4100 

4010 IF Y2>155 THEN IT1=0:HI=HI +1:Y2=220:RETURN 
4020 Y2=Y2+4 

4025 IF X2>140 THEN RETURN 

4030 X2=X2+4:RETURN 

4100 X2=X3:Y2=Y3+8:IT1=1:RETURN 
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4499 

4500 
4505 
5000 
5003 
5005 
5010 
5500 
5505 
5999 
7000 
7010 
7020 
7030 
7999 
9000 

9005 

9010 


9015 


9020 

9025 

9030 

9035 

9040 


9045 


9050 

9055 

9060 

9065 

9070 

9075 

9080 


RETURN 

V~INT(RND(1)*120}:IF Y <8 THEN 4500 

RET URN 

REN 

IF IT2=0 THEN RETURN 

IR Y4<8 THEN IT 2 - 0 ;Y4-220J RETURN 
V4=Y4-4:RETURN 

IF IT2=l THEN RETURN 

X4=X 1: Y4—Y 1 — 8 : IT2*=1 : RETURN 

RETURN 

REM 

IF PEER<53261)=1 THEN BA=BA- 1 ;IT 1 = 0 :Y2=220 
IF PEEK(53263)=2 THEN BA=BA +1 
IF PEEK(53263)=4 THEN BA=BA +1 
RETURN 

113?i49a76;232!l3; 96,120 ’ 32,8,113,160 ’ 14 ’ 162 ’ B ’ 189 ’ 53 ’ 

DATA 208,247,32,170,112,160,14,162,0,181 176 157 57 1 ,-r 
,232,136,208,247,160,14 , / 6 , 1 o, , ^, 11 ... 

DATA 32,170,112,160,14,162,0,181,176,157,81 117 m n , 
,208,247,160,14,162,0 , u/,di , 11 „.,^, 1 

J3S.IS: S;: Jf 7 • 32 ■ 27 • 113 ' 0B • - • ■«• ■ “ • - • - 

DATA 24,105,46,145,176,169,32,24,101,182,168 166 185 16 

9,0,145,178,200,202,16 ’ ’ ’ 1 ’ 16 

DATA 250,169,32,24,101,183,141,116,113,162,0.142,109 11 

6,166,185,172,109,113,177 109,-1 

- A I2 — 172,1 16 ’ 113 ’ 145 ’ 178 ’ 238 ' H6,113,20 
lt>,*o7, 165,183,133,182,165 

DATA 184,133,189,96,165,184,197,189,208,182 96 1 7 ~- 110 

113,41 15,170, 189,36,113 , , 96,17,., 1 1 * , 

DATA 2o8,112,113,96,160,14,162,0,181,176 157 117 1 it o-t 
2,136,208,247,96,160,14 ’ * 1 1 1 01 ‘ t ° 

DATA 162,0,189,117,113,149,176,232,136,208„247 96 1 ^ t 
,4,5,10,7,8 

Tl S ; 1 i , ? ,2,4,:l ,4 ’ B ’ 0 ’ 208 ’ 0 ^ 132,0,120,0,0,0,8,0 

A 16,L,0,1,208,0,133,20,120,0,0,0,8,0,16,0,0,2,208,0 


9085 DATA 134,40,120,0,0,0,8,0,16,0,0,3,208,0,135,60,120,0, 

9090 DATA B, 0 ,0, 0 , 0 , 0 , 0 ,79, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 14 *, 30 i 208 


0 
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LH LO Lfi 


ChexSum Tables 


5 

— 

1421 

1530 

— 

1275 

5500 

as 

367 

6 

J“S 

J. O 

1545 

= 

g g 

5505 

= 

1408 

7 

= 

1627 

1550 

~ 

749 

5999 

as 

58 

10 

~ 


1560 

— 

nnv 

7010 

sa 

1869 

20 

— 

1124 

2010 


1338 

7020 

as 

1113 

30 

— 

144 

2020 

= 

463 

7030 

as 

1115 

40 

= 

420 

2030 

— 

454 

7999 

as 

58 

00 

— 

406 

2040 

=s 

624 

9000 

= 

3800 

60 

= 

473 

2050 

as 

58 

9005 

— 

3900 

70 

as 

372 

2105 

= 

358 

9010 

sa 

3548 

80 

— 

1169 

21 10 

— 

5S7 

9015 

as 

3747 

85 


361 

2205 

= 

422 

9020 

as 

3711 

100 

s= 

2569 

2210 

as 

586 

9025 

as 

3824 

110 

= 

L'668 

3005 

= 

1412 

9030 

as 

3638 

120 

— 

2534 

3010 

= 

581 

9035 

as 

3778 

130 

— 

2116 

4005 

= 

428 

9040 

as 

3730 

200 

— 

371 

4010 

as 

1768 

9045 

— 

3719 

210 

— 

373 

4020 

— 

516 

9050 

as 

3845 

220 

=: 

373 

4025 

= 

424 

9055 

sa 

4013 

230 

ss 

375 

4060 

as 

590 

9060 

sa 

3852 

500 

=s 

889 

4100 

= 

1396 

9065 

as 

3760 

505 

= 

859 

4499 

— 

53 

9070 

as 

3163 

1030 

as 

A wf 

4500 

— 

1341 

9075 

as 

c2r cr 

+... —uJ W' 

1060 

= 

1692 

4505 

as 

58 

9080 

as 

*^icrT*7 

itm Uli / 

1500 

= 

1 0 . 6 

5003 

— 

302 

9085 

as 

2637 

1510 

SS 

696 

5005 

~ 

1107 

9090 

as 

2191 

1520 

sa 

1 151 

50 1 0 

— 

597 





TOTAL - 120901 
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ROBOTS 



CLASSIFICATION: Skill 


the 

you 

the 


The objective of this game is to move your player round 
screen without being destroyed by the robots. Each time 
move, all the robots move toward you. You can destroy Llle 
robots by causing them to walk over mines which you must avoid 
yourself Select a joystick at the start of the game. Try to 
destroy all the robots in the least number of moves. 

PROGRAMMING SUGGESTIONS 


Increase the 
obstacles on 


number of robots and mines on 
the screen to make moving more 


the screen, 
difficult. 


Place 
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Program 

Variables 


MO 

SP 

NR 

PL 

NM 

JO 

SC 


Number of moves 
Space character 
Number of robots 
Players character 
Number of mines 
Joystick port number 
Start of screen 


Program 

Structure 


120 - 

180 

Main Loop 

1000 - 

1099 

Initialization 

2000 - 

2099 

Setup game,input joystick 

3000 - 

3030 

Deposit mines 

4000 - 

4040 

Deposit robots 

5000 - 

5030 

Move player 

6000 - 

6020 

Move player right 

6100 - 

6120 

Move player left 


number 
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Listing 


10 

REM ROBOTS 

20 

CLR 


n ^ 

POKE 

7 cr ncc; 

/ vJdL tt jIvJiJ 

40 

SC=40000 

60 

GOSUB 

1000:REN 

70 

GOSUB 

2000:REM 

80 

GOSUB 

3000:REN 

90 

GOSUB 

4000:REN 

100 

GOSUB 

5000:REM 


INITIALIZE VARAIABLE 
DO INSTRUCTIONS 
DEPOIST NINES 
DEPOSIT DROIDS 
DEPOSIT PLAYER 



120 

130 

140 

150 

160 

165 

170 

180 


A=STICK<JO):B=STRIG(JO>:IF A=15 AND B=1 

IF A=7 THEN GOSUB 6000 

IF A=11 THEN GOSUB 6100 

IF A=13 THEN GOSUB 6200 

IF A=14 THEN GOSUB 6300 

POSITION 0,0: PR I NT SF’C# (1,30) ; NO; 

IF B=0 THEN POKE PO,SP:GOSUB 5000 
GOSUB 8000:GOTO 120 


THEN 120 


Initialization 


1000 SETCOLOR 4,7, 5;SETCOLOR 2 ,3.6:SETCOLOR 1,3 15 
1010 DIN TAB(10,2) ,E(10) , SPC# <40) 

1020 NM=10:REN SET NUMBER OF NINES 
1025 PL-84:REM SET PLAYER CHAR 

1030 ROB=67 

1035 MIN=10:REM SET MINE CHAR 

1040 NR=10:REM SET NUMBER OF ROBOTS 
1050 SP=0: REM SET SP CHARACTER- 

1060 EX —17 

1070 FOR 1 = 1 TO 40: SPC$ <1,1 >="*": NEXT I 
1099 RETURN 
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2000 POKE 752,0 

2026 POKE 752,0 

2027 PRINT CHR$ (125) ; "WHICH * JOYSTICK *.PORT *.(0,1) " ; : INPUT JO 

2028 IF JOO0 AND JOOl THEN 2027 

2029 PRINT CHRT- (125) ; s POKE 752,128 

2030 FOR I=SC+1 TO SC+39:POKE 1+920,128:NEXT I 

2040 FOR I=SC+40 TO SC+920 STEP 48:POKE I,128:POKE 1+39,128: 
NEXT I 

2050 POKE 80,128 

2060 POKE SC+920,128:POKE SC+920+39,128 

2070 POSITION 0,0: PRINT " ^ROBOTS A A A 

MOVES=0^^ A 
2099 RETURN 



3000 FOR 1=1 TO NM 

3007 RW=INTCRND<0)*23>:IF RW=0 THEN 3007 
3010 CW=INT(RND(0)*39):IF CW=0 THEN 3010 
3020 PE=SC+(RW*40)+CW 
3025 IF PEEK(PE)=MIN THEN 3007 
3030 POKE PE,MIN:NEXT I:RETURN 



4000 FOR 1=1 TO NR 
4007 E(I> = 1 

4010 RW=INT(RND(0)*23):IF RW=0 THEN 4010 

4015 CW=INT(RND(0)*39):IF CW=0 THEN 4815 

4020 PE=SC+(RW*40)+CW 

4025 IF PEEK<PE>“MIN THEN 4010 

4030 IF PEEK(PE)“ROB THEN 4010 

4035 TAB(I,1)=RW:TAB(I,2)=CW 

4040 POKE PE,ROB 

4050 NEXT I 

4060 RETURN 
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5000 

5010 

5015 

5020 

5025 

5030 

6000 

6005 

6006 
6007 
6010 
6012 
6020 
6100 

6105 

6106 
6107 
6110 
6112 
6120 
6200 

6205 

6206 
6207 
6210 
6212 
6220 
6300 

6305 

6306 


R INT(RND(0)*23):IF R=0 THEN 5000 
C=INT (RND (0) *39) : IF C=0 THEN 5010 
F’0=SC+ (R*40) +C 

IF PEEK (F'O) =MIN THEN 5000 
IF PEEK (PO)asROB THEN 5000 
M0=M0+5:POKE F’O, PL: RETURN 
REM MOVE PLAYER RIGHT 
IF 0=38 THEN RETURN 
MO=MO+1 

C=C+1: F‘E=SC+ <R*40) +C 

IF PEEK(PE)=ROB THEN GOSUB 9000:GOTO 10 
IF PEEK(PE)=MIN THEN GOSUB 9500SGOTO 10 
POKE PO, SP: POKE PE , F’L: PO=PE: RETURN 
REM MOVE PLAYER LEFT 
IF 0=1 THEN RETURN 
M0=M0+1 

0=0-1: F’E=SC+ (R*40) +C 

IF PEEK(PE)=R0B THEN GOSUB 9000:GOTO 10 
IF PEEK(PE)=MIN THEN GOSUB 9500:GOTO 10 
POKE F’O , SP: POKE PE , PL: F’0=PE: RETURN 
REM MOVE PLAYER DOWN 
IF R=22 THEN RETURN 
M0=M0+1 

R=R +1:PE=SC+ ( R*40)+0 

IF PEEK(PE)=ROB THEN GOSUB 9000:GOTO 10 
IF PEEK(PE> =MIN THEN GOSUB 9500:GOTO 10 
POKE PO,SP:POKE PE,PL:PO=PE:RETURN 
REM MOVE PLAYER UP 
IF R=1 THEN RETURN 
M0=M0+1 


6307 

6310 

6312 

6320 

8000 

8020 

8030 

8040 

8050 

8060 

8500 

8505 

8520 

8525 

8530 

8535 

8540 

8545 


8550 

8560 

8570 

9000 

9005 

9010 

9012 

9013 
9015 


R=R-1:PE=SC+<R*40)+0 

IF PEEK(PE)=ROB THEN GOSUB 9000:GOTO 10 
IF PEEK(PE)=MIN THEN GOSUB 9500:GOTO 10 
POKE PO,SP:POKE PE,PL:PQ=PE:RETURN 
REM MOVE ROBOTS 
CC=0:FOR 1=1 TO NR 

IF E (I) = 1 THEN GOSUB 8500: COCO 1 
NEXT I 


IF CC=0 THEN GOSUB 9900:GOTO 10 
RETURN 

REM MOVE ONE ROBOT 

RW=T AB(I,1):CW=TAB(1,2):PE=SC+(RW*40 > +CW 

IF CW<C THEN TC=CW:TC=TC +1 

IF CW>C THEN TC=CW:TC=TC-1 

IF RW<R THEN TR=RW:TR=TR +1 

IF RW>R THEN TR=RW:TR=TR -1 

F’N=SC+ (TR*40) +TC 


IF PEEK (F’N) =MIN THEN POKE PN,SP sPOKE PE , SP: E (I) = 0 : RETUR 
N 

IF PEEK. (F’N) =ROB THEN RETURN 

IF PEEK(PN)=PL THEN GOSUB 9000:GOTO 10 

’ 2> “ TCs PDKE PE , SP« POKE PN , ROB: RETURN 
REM THE ROBOTS GOT YOU 

F ROBOTS H,R;J: ^ 1 5 " Y0U *.WERE ^CAPTURED ^BY ^THE 


PRINT SPRINT "YOU ^MADE^" ; MO; " ^MOVES’’ 

CC= 0 : FOR 1 = 1 TO NR: IF E (I) =0 THEN CC=CC +1 
NEXT I 

FRINT :PRINT 11 AND ^.DESTROYED ^CC; " ROBOTS" 
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9020 GOSUB 10000 s RETURN 
9500 REN PLAYER HIT A MINE 

9505 PRINT CHR^- (125) ; "YOU IT ^SUBATOMIC ^.MINE" 

9510 PRINT : PRINT " YOUR ^NOLOCULES A ARE ^NOW ^ORBITING ^THE" 

9512 CC=0:FOR 1=1 TO NR:IF E(I)=0 THEN CC-CC+l 

9513 NEXT I 

9515 PRINT :PR INT "EARTH! ! ! ! !":PRINT 
9520 PRINT "YOU a MADE*"-, MO; " *MOVES" -.PRINT 

9525 PRINT "AND ^DESTROYED CC; " ^ROBOTS" : GOSUB 10000: RETURN 
9900 REM ALL ROBOTS GONE 

9905 PRINT CHR* (125) ; " YOU ^HAVE ^DESTROYED ^ALL *THE ^ROBOTS" : 

— PRINT 

9910 PRINT "IT^TOOK^YOU^" 5 MO; " ^MOVES " : PR I NT 
9915 GOSUB 10000:GOTO 10 

10000 PRINT :PRINT "PRESS ^JOYSTICK ^TRIGGER ^TO ^RESTART *GAME" 
10005 B=STRIG(JO):IF B=1 THEN 10005 
10010 RETURN 
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ChexSum Tables 


20 

s= 

= 40 

21 

— 

= 405 

40 

— 

T "T-T 
v i .j .Ji 

60 

= 

1751 

70 

= 

1457 

80 

sc 

1291 

90 

— 

1381 

100 

= 

1405 

120 

— 

1916 

130 

SC 

516 

140 

— 

527 

150 

= 

530 

160 

= 


165 

= 

881 

170 

2= 

796 

180 

SC 

406 

1000 

— 

1204 

1010 

=s 

1258 

1020 

— 

1861 

1025 

= 

1703 

1030 

ss 

442 

1035 

5= 

1423 

1040 

— 

1959 

1050 

— 

1573 

1060 

“ 

365 

1070 

ss 

1460 

1099 


58 

2000 

= 

253 

2026 


-T 

2027 

— 

2256 

2028 

2= 

661 

2029 

ss 

748 

2030 

— 

1549 

2040 

= 

2200 

2050 

2= 

319 

2060 

— 

1173 

2070 

= 

2114 

2099 = 

2= 

58 

3000 i 

~ 

461 

3007 ; 

= 

1215 

3010 : 

2= 

1248 


3020 = 1026 
3025 = 684 


3030 

= 617 

4000 

= 465 

4007 

= 581 

4010 

= 1240 

4015 

= 1269 

4020 

= 1026 

4025 

« 709 

4030 

= 708 

4035 

« 1607 

4040 

= 358 

4050 

= 175 

4060 

= 58 

5000 

= 1246 

5010 

= 1286 

5015 

= 1019 

5020 

= 696 

5025 

= 695 

5030 

* 954 

6005 

= 427 

6006 

« 503 

6007 

= 1602 

6010 

= 962 

6012 

= 968 

6020 

* 1211 

6105 

« 372 

6106 

= 503 

6107 

= 1603 

6110 

= 962 

6112 

= 968 

6120 

- 1211 

6205 

= 404 

6206 

= 503 

6207 

= 1600 

6210 

- 962 

6212 

= 968 

6220 

= 1211 

6305 

= 371 

6306 

= 503 

6307 : 

= 1601 


6310 

= 

962 

6312 

— 

968 

6320 

= 

1211 

8020 

= 

777 

8030 


1379 

8040 

= 

175 

8050 


682 

8060 

— 

58 

8505 

= 

2688 

8520 

= 

1360 

8525 

— 

1362 

8530 

CS 

1360 

8535 


1362 

8540 

— 

1044 

8545 

— 

1937 

8550 

= 

606 

8560 


967 

8570 

= 

ncr*7-n 
wi ‘J 

9005 

— 

2855 

9010 


1379 

9012 

= 

1877 

9013 

=c 

175 

9015 

= 

1857 

9020 

— 

187 

9505 

rs 

2046 

9510 

= 

2679 

9512 

s= 

1877 

9513 

— 

175 

9515 

— 

765 

9520 

= 

1379 

9525 

— 

2028 

9905 

sc 

2822 

9910 

— 

1612 

9915 

= 

262 

10000 

sc 

2915 

10005 

= 

984 

10010 

sc 

58 

total 

— 

127177 
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Turn your Atari into an exciting arcade of electronic fun 
and thrills with the easy-to-enter ready-made programs 
in this book. Containing 30 different games designed to 
demonstrate the complete capabilities of the Atari 
130XE — arcade games, strategy games and 
adventures are all here for you to enjoy — without the 
need for any complex programming skills! 

Each game includes a screen photo, to illustrate exactly 
what the program will look like, and the unique 
CHEXSUM facility, to avoid those costly typing errors. 

% 

For the benefit of more advanced programmers, there is 
a full outline of what each program is doing, enabling 
you to modify the games to suit your own 
specifications. 

Now the best games book is available for the Atari 
130XE opening the door to a fascinating new dimension 
of computer games, action and excitement. 


COMPATIBLE WITH THE ATARI 800XL 
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